ฟังก์ชั่นที่สำรวจไดเรกทอรีและไฟล์ในไดเรกทอรี

<%@ language = vbscript%>

<%ฟังก์ชั่น bianli (เส้นทาง)

ตั้งค่า fso = server.createObject (scripting.filesystemobject)

เมื่อเกิดข้อผิดพลาดต่อไป

ตั้งค่า objfolder = fso.getFolder (เส้นทาง)

ตั้งค่า objsubfolders = objfolder.subfolders

สำหรับ OBJSubFolder แต่ละตัวใน OBJSubFolders

nowPath = path + / + objsubfolder.name

Response.Write NowPath

ตั้งค่า objfiles = objsubfolder.files

สำหรับ objfile แต่ละตัวใน objfiles

Response.write <br> ---

Response.write objfile.name

ต่อไป

Response.write <p>

Bianli (NowPath) '递归

ต่อไป

ตั้งค่า objfolder = ไม่มีอะไร

ตั้งค่า objsubfolders = ไม่มีอะไร

ตั้งค่า fso = ไม่มีอะไร

ฟังก์ชันสิ้นสุด

-

-

Bianli (D :) '遍历 D: 盘

-

-

很不错哦。