N�, *wein*, jetzt bin ich wieder gleich weit, wie am Anfang. Heut ist nicht
mein Tag.
Jetzt sieht's bei mir so aus:
-------------------------------
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>"
NEXT
rekursiveAbfrage(FolderPfad)
----------------------------
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
> -----Urspr�ngliche Nachricht-----
> Von: Mansur Esmann [Offensiv-Medien] [mailto:[EMAIL PROTECTED]]
> Gesendet: Montag, 27. Mai 2002 16:00
> An: ASP Diskussionsliste fuer Anfaenger
> Betreff: [aspdebeginners] AW: FSO Gehirnknoten
>
>
>
> > >
> > > Hallo Stefan,
> > >
> > > hoffe das hilft Dir:
> > >
>
> function rekursiveAbfrage(Pfad)
>
> > > Folderpfad = Server.MapPath(pfad)
> > > SET FolderObject = CreateObject("Scripting.FileSystemObject")
> > > SET ListFolder = FolderObject.GetFolder(Bildpfad)
> > >
> > > FOR EACH FolderName IN ListFolder.Folder
> > >
> > > [...]
> > >
> rekursiveAbfrage (Folderpfad)
> > > NEXT
> > >
>
> end function
>
> > > Liebe Gr�sse
> > > Nicole
> > >
> > >
| 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
