filesystemobject folders?

Det er en rekursiv funktion du har behov for. Leg med nedenstående.

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
    Response.Write(folderspec & "\" & f1.name)
    ShowFolderList folderspec & "\" & f1.name
  Next
End Function

for feeee' .. det virker.. Opret lige et svar.. så får du nogle point

Mange tak

Ok, et svar.

I øvrigt, du kan finde gode kode eksempler her : http://www.microsoft.com/technet/scriptcenter/scrguide/sas_vbs_overview.asp