Hmm, schon besser. Wir kommen langsam hin. Jetzt macht er's zwar, aber nur f�r die Ordner, die eine Ebene drunter sind. Wenn in diesen Ordnern wieder einer ist, macht er nix mehr.
Danke f�r die Hilfe > -----Urspr�ngliche Nachricht----- > Von: Mansur Esmann [Offensiv-Medien] [mailto:[EMAIL PROTECTED]] > Gesendet: Montag, 27. Mai 2002 16:35 > An: ASP Diskussionsliste fuer Anfaenger > Betreff: [aspdebeginners] AW: FSO Gehirnknoten > > > > > ------------------------------- > > 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 > | 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
