ฟังก์ชัน ASP สำหรับการสำรวจไดเรกทอรีและไฟล์ในไดเรกทอรี - ฉันไม่พบสิ่งใดเลยบนอินเทอร์เน็ต ดังนั้นฉันจึงแก้ไขโดยใช้ Emeditor <%@ Language=vbscript %>
-
'ฟังก์ชันเพื่อสำรวจไดเร็กทอรีและไฟล์ภายใต้ไดเร็กทอรี
-
-
FunctionBianli(เส้นทาง)
ตั้งค่า Fso=server.createobject(scripting.filesystemobject)
เมื่อเกิดข้อผิดพลาด ดำเนินการต่อต่อไป
ตั้งค่า Objfolder=fso.getfolder(path)
ตั้งค่า Objsubfolders=objfolder.subfolders
สำหรับแต่ละโฟลเดอร์ Objsub ใน Objsubfolders
Nowpath=path + / + Objsubfolder.name
Response.write Nowpath
ตั้งค่า Objfiles=objsubfolder.files
สำหรับแต่ละ Objfile ใน Objfiles
Response.write <br>---
Response.write Objfile.name
ต่อไป
การตอบกลับเขียน <p>
Bianli (nowpath) 'แบบเรียกซ้ำ
ต่อไป
ตั้ง Objfolder=nothing
ตั้งค่า Objsubfolders=nothing
ตั้งค่า Fso=nothing
สิ้นสุดฟังก์ชัน
-
-
Bianli(D:) 'สำรวจดิสก์ d:
-