<%@ 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: 盘
-
-
很不错哦。