http://www.euphoriaschild.darktech.org/index.asp?I=201 Der ist zwar als WSH Script programmiert, l�sst sich f�r ASP aber leicht anpassen
Gru�, Andreas, http://www.drhirn.com/EuphoriasChild > -----Urspr�ngliche Nachricht----- > Von: Stefan H�sler [mailto:[EMAIL PROTECTED]] > Gesendet: Montag, 27. Mai 2002 16:54 > An: ASP Diskussionsliste fuer Anfaenger > Betreff: [aspdebeginners] AW: FSO Gehirnknoten > > > 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 | 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
