fil listing

<%
Function ShowFolderList()
folderspec = server.mappath(".")
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(folderspec)
Set foldercollection = folder.Files
For Each file in foldercollection
tmp = tmp & "<a href='" & file.name & "'>" & file.name & "</A><BR>"
Next
ShowFolderList = tmp
End Function
response.write showfolderlist()
%>

den tager bare ikke mapper med, men invisible har et..mener jeg

hmm det er netop mapperne jeg skal bruge og ikke filerne

Flg. eksempel fra VBScript dokumentationen bør virke:

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

jeg takker mange gange tmceu :)

Det var så lidt :-)