<%
Dim objFSO, objFolder, objSubFolders
Dim strFolderPath
strFolderPath = Server.MapPath("\")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strFolderPath)
Set objSubFolders = objFolder.SubFolders
For Each Folder IN objSubFolders
strFolderName = Folder.Name
Response.Write strFolderName & "<BR>"
Next
Set objSubFolders = Nothing
Set objFolders = Nothing
Set objFSO = Nothing
%>
listar alla katalogers namn, i detta fall blir det wwwrootens alla kataloger
cya,
PatrikB