> -------------------------------
> FolderPfad = "d:\"
>
> function rekursiveAbfrage(Pfad)
>
> Set f = fso.GetFolder(FolderPfad)
> Set fc = f.Files
> For Each f1 in fc
> Response.Write "<A HREF=""" & Folderpfad & "/" & f1.name & """>" &
> f1.name & "</A>"
> Next
>
> end function
>
> SET fso = CreateObject("Scripting.FileSystemObject")
> SET Folder = FSO.GetFolder(Folderpfad)
>
> FOR EACH SubFolder in Folder.SubFolders
> Response.Write SubFolder.Name & "<BR>"
rekursiveAbfrage(Pfad & "\" & SubFolder.Name)
' An dieser Stelle rufst Du die Funktion einfach nochmal f�r jeden Folder
auf
' und �bergibst eben eine Ordnerebene tiefer.
' Lass Dir vorher noch den neuen Pfad testweise ausgeben. Wei� grad nicht
' ob der backslash dazwischen n�tig ist
' MFG Mansur
> NEXT
>
>
> ----------------------------
>
> Aber ich will doch einfach nur, da� mir alle Dateien angezeigt
> werden, die's
> so auf dem Laufwerk "d" gibt. Und zwar auf einmal in einer Liste.
>
> Danke f�r Eure Hilfe
>
> Stefan
>
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
