Katalog

Fso,

Dim fso, folder, subFolder,f
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder("rootFolder")

For Each subFolder in folder.subFolders
response.write subFolder.name & "<br>"
Next

Om du vill gå på djupet så får du skriva en rekursiv procedur som tar ett katalognamn som parameter och traverserar alla foldrar.

------------------
essentitia preter non sans multiplicandum

får hela tiden

Körningsfel i Microsoft VBScript fel '800a004c'

Det går inte att hitta angiven sökväg.

/meny/test.asp, rad 5

Hur ser rad 5 ut?

Om du använder min kodsnutt så får du byta ut rootFolder till den katalog där du vill se alla underkataloger.

------------------
essentitia preter non sans multiplicandum

Om du vill gå på djupet så får du skriva en rekursiv procedur som tar ett katalognamn som parameter och traverserar alla foldrar.

Kunde du inte få det liiite krångligare? ;)

------------------
Jag är skum

Tackar har fått till allt nu