ASP-Funktionen zum Durchsuchen von Verzeichnissen und Dateien in Verzeichnissen – ich konnte keine davon im Internet finden und habe sie daher mit Emeditor <%@ Language=vbscript %> korrigiert
<%
'Funktion zum Durchsuchen von Verzeichnissen und Dateien unter Verzeichnissen
%>
<%
FunktionBianli(Pfad)
Setze Fso=server.createobject(scripting.filesystemobject)
Bei Fehler Weiter fortsetzen
Setze Objfolder=fso.getfolder(path)
Legen Sie Objsubfolders=objfolder.subfolders fest
Für jeden Objsubfolder in Objsubfolders
Nowpath=Pfad + / + Objsubfolder.name
Response.write Nowpath
Legen Sie Objfiles=objsubfolder.files fest
Für jede Objfile in Objfiles
Response.write <br>---
Response.write Objfile.name
Nächste
Response.write <p>
Bianli(nowpath)'rekursiv
Nächste
Legen Sie Objfolder=nothing fest
Setze Objsubfolders=nothing
Setze Fso=nichts
Funktion beenden
%>
<%
Bianli(D:) 'Durchquere die d:-Festplatte
%>