[ASP] Rekursiv folderinhalte listen WAR: <no subject>

Claudius Ceteras activeserverpages at glengamoi.com
Mon, 21 Feb 2005 22:57:52 +0100 

> ich möchte gern ein sript erstellen, das mir in einer html 
> Tabelle alle Dateien mit Pfaden, Typ und Größe innerhalb 
> eines bestimmten Ordners auflistet. Das beigefügte script 
> gibt mir schonmal die Dateien in einem Ordner "images" aus, 
> aber subfolder wiederum darin befindliche Dateien werden übergangen. =

> Ich hab eine Weile daran herumgekaut, aber ohne 
> befriedigendes Ergebnis. Was muss ich tun20

Du möchtest also alle Dateien in einem Ordner egal wie tief =
verschachtelt
haben, richtig?
Dann musst Du rekursiv vorgehen, also in jeden ordner nochmal absteigen =
und
denselben code ausführen...

Etwa so:


> <html>
> <head></head>
> <body>
> <table border=1>
> <%
> dim objFS, objDatei, objOrdner, strOrdner
> 'hier muss der Name des folders auf dev rein, in denen die 
> Dokumente liegen
> strOrdner= server.MapPath(".")& "\images"
>
> set objFS = Server.CreateObject("Scripting.FileSystemObject")
> set ObjOrdner = objFS.GetFolder(StrOrdner)

listFiles ObjOrdner

Sub listFiles(folder)
	for each objDatei in ObjOrdner.Files
		response.write "<tr><td>"  & objDatei.Path & "</td>"
		response.write "<td>"  & right(objDatei.Name,3) & "</td>"
		response.write "<td>"  & int(objDatei.Size/1000) &
"</td></tr>"
	next

	' rekursiver Abstieg
	for each objSubFolder in ObjOrdner.SubFolders
		listFiles objSubFolder
	next
End sub

> %>  

> </table>
> 
> </body>
> </html>


Claudius