*******************************************************************
Oft benötigen wir möglicherweise einen Teil des Code
Dateien im Unterordner.
Die folgende Zeile des ASP-Codes kartiert einem angegebenen Ordner und durchsucht alle Unterordner
(Nicht rekursiv, Code kann erweitert werden) und liest alle Dateien (im Grunde Textdateien) nacheinander.
Sie können jeden Ordneramen in den im Code angegebenen Bemerkungen (innerhalb) angeben
'Erstellen Sie ein Dateisystemobjekt
DateiSystem = server.createObject (scripting.FilesSystemObject) festlegen.
Dim dbconn
OrdnerPath = Server.Mappath (Hauptordnerpfad)
Setzen Sie Sfolder = Dateisystem.getFolder (OrdnerPath) .SubFolders
Für jedes OrdnerItem in Sfolder
Setzen Sie Dateien = orderItem.files
Für jedes FileItem in Dateien
fname = server.mappath (Hauptordnerpfad & orderItem.name & / & fileItem.name
set File = Dateisystem.opentextFile (fname, 1, false)
während file.atendofstream <> true
record = split (file.readline, ~)
Wend
Datei.close
Dateisystem.DeleteFile (fname)
nächste
nächste
*******************************************************************