อ่านไฟล์ทั้งหมดในไดเรกทอรี (รวมถึงไฟล์ทั้งหมดในไดเรกทอรีย่อย)

-

หลายครั้งที่เราอาจต้องการบางส่วนของรหัสซึ่งจะเข้าถึงโฟลเดอร์ย่อยทั้งหมดของเซิร์ฟเวอร์และทั้งหมด

ไฟล์ภายในโฟลเดอร์ย่อย

บรรทัดของรหัส ASP ต่อไปนี้จะแมปไปยังโฟลเดอร์ที่ระบุและค้นหาโฟลเดอร์ย่อยทั้งหมด

(ไม่ซ้ำรหัสสามารถขยายให้ทำ) และอ่านไฟล์ทั้งหมด (โดยทั่วไปไฟล์ข้อความ) ทีละหนึ่ง

คุณสามารถระบุชื่อโฟลเดอร์ใด ๆ ในข้อสังเกตที่ระบุในรหัส (ภายใน)

'สร้างวัตถุระบบไฟล์

Set FileSystem = Server.CreateObject (Scripting.FilesYstemObject)

dbconn สลัว

FolderPath = Server.Mappath (เส้นทางโฟลเดอร์หลัก)

ตั้งค่า sfolder = filesystem.getFolder (FolderPath) .subfolders

สำหรับแต่ละโฟลเดอร์ใน sfolder

ตั้งค่า files = folderItem.files

สำหรับแต่ละ fileitem ในไฟล์

fname = server.mappath (พา ธ โฟลเดอร์หลัก & folderItem.name & / & fileitem.name

ตั้งค่า file = filesystem.opentextfile (fname, 1, false)

ในขณะที่ file.atendofstream <> true

record = split (file.readline, ~)

ใช้

file.close

filesystem.deletefile (fname)

ต่อไป

ต่อไป

-