---

Jeg bruger følgende kode til at finde alle mapper på serveren. Men da der er nogle mapper som jeg ikke ønsker at vise, så kunne jeg godt tænke mig at vide om det er muligt at lave en feks. txt-fil, med alle de mapper/filer som man ikke ønsker vist, er dette muligt at lave ?

<%
strPathInfo = GLOBAL_SITE_FOLDER
strPhysicalPath = Server.MapPath(strPathInfo)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strPhysicalPath)
For each Folder in objFolder.SubFolders
If Left(Folder.Name,1)<>"_" Then

Response.Write Folder.Name & "<br>

End If
Next
Set objFSO = Nothing
%>

---

du kan lægge en if then else ting ind som du selv er startet på

<%
strPathInfo = GLOBAL_SITE_FOLDER
strPhysicalPath = Server.MapPath(strPathInfo)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strPhysicalPath)
For each Folder in objFolder.SubFolders
If Left(Folder.Name,1)<>"_" Then

if folder.name ="mappe1" or folder.name = "mappe2" or folder.name="forbudt" then

else
Response.Write Folder.Name & "<br>
end if
End If
Next
Set objFSO = Nothing
%>


Mvh

sMorch

---

Du kunne også bare kalde alle de forbudte mapper noget, der starter med _

---

Jeg er mest med på dit første forslag. Men jeg kunne nu mest tænke mig en fil der indeholdte de oplysninger. Fordi så ville det jo være muligt/nemmere at ændre online, plus at det ville være nemmere hvis jeg skulle bruge samme funktion et andet sted på siden...
Men ellers må jeg bruge dit forslag indtil videre.

Jeg lader spørgsmålet stå et par dage, og så får du point hvis der ikke sker mere i denne sag :)

---

Du kunne også lave en tekst fil med mappenavnene på de forbudte mapper i en fx komma separeret liste


forbudt.txt :
mappe1,mappe2,mappe3,forbudt,hemligmappe

læs filen med FSO og lave et array ud af listen, som du så sammenligner med, hver gang FSO finder en ny mappe.

Så vil du fremover skulle rette mappenavne i forbudt.txt, og du kan bruge listen i andre scripts.

Mvh

sMorch

---

Ja lige det her jeg har brug for:

"læs filen med FSO og lave et array ud af listen, som du så sammenligner med, hver gang FSO finder en ny mappe."

Mit problem er bare at jeg er forholdsvis nybegynder med FSO og array ved jeg næsten ikke noget om, kunne du lave et hurtigt eksempel, jeg kan altid selv rette det til, hvis bare jeg har noget at gå ud fra.

---

Prøv dette, og husk lige at lave en fil forbudt.txt med mindst et mappenavn i - den skal ligge i samme mappe som scriptet

<%
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile(Server.MapPath("forbudt.txt",)1)
   Do until f.AtEndOfStream
      linie=f.ReadLine
      poster=split(linie,",")
   Loop
   f.Close

strPathInfo = GLOBAL_SITE_FOLDER
strPhysicalPath = Server.MapPath(strPathInfo)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strPhysicalPath)
For each Folder in objFolder.SubFolders

for x=lbound(poster) to Ubound(poster)
   if poster(x)=Folder.Name then forbudt=1   
next

If Left(Folder.Name,1)<>"_" or forbudt=1 Then



else
Response.Write Folder.Name & "<br>
end if
End If
Next
Set objFSO = Nothing
%>

---

Det skulle lige rettes lidt til, men virker 100% som det skal. Tak for hjælpen :)

---

Sæl
smorch

Eftersom du ikke er logget ind i systemet, kan du ikke skrive et indlæg til dette spørgsmål.

Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.