******************************
Sering kali kita mungkin memerlukan sebagian kode yang akan mengakses semua sub-folder server dan juga semuanya
file dalam sub-folder.
Baris kode ASP berikut akan memetakan ke folder yang ditentukan dan mencari semua sub-folder
(Tidak secara rekursif, kode dapat diperluas untuk dilakukan) dan membaca semua file (pada dasarnya file teks) satu per satu.
Anda dapat menentukan nama folder apa pun, dalam komentar yang diberikan dalam kode (di dalam)
'Buat Objek Sistem File
Set FileSystem = Server.CreateObject (Scripting.FilesyStemObject)
redup dbconn
FolderPath = server.mappath (jalur folder utama)
Atur sfolder = FileSystem.getFolder (FolderPath) .subfolder
untuk setiap folderitem di sfolder
Setel file = folderitem.files
untuk setiap fileitem dalam file
fname = server.mappath (jalur folder utama & folderitem.name & / & fileitem.name
Setel file = fileSystem.opentextFile (fname, 1, false)
Sedangkan file.atendofstream <> true
Record = split (file.readline, ~)
pergi ke
File.close
Filesystem.deleteFile (fname)
Berikutnya
Berikutnya
******************************