Listning af biblioteker

jeg har et sådant script...

2 sek..!

skal man kun se mappen og ikke åbne den?

Function ShowFolderList(folderspec)
  Dim fso, f, f1, fc, s
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.GetFolder(folderspec)
  Set fc = f.SubFolders
  For Each f1 in fc
    s = s & f1.name
    s = s & "<BR>"
  Next
  ShowFolderList = s
End Function

Response.Write(ShowFolderList("c:\"))

//akj

<%
Set fso = CreateObject("Scripting.FileSystemObject")
Set folderObject = fso.GetFolder(Server.MapPath("/"))
Set subFolders = folderObject.SubFolders

For Each FolderObject In subFolders
  Folder = FolderObject.Name
Response.Write Folder & "<br>"
Next
%>

såkan du selv bestemme hvilken mappe du vil se, ved at ændre i:
Set folderObject = fso.GetFolder(Server.MapPath("/"))

som den står nu er det roden i dit webdir der bliver vist...

bruger selv denne: http://www.hillerodgolf.dk/test_side/profiler/pic.asp

Tak!