มีวิธีใน FSO ที่เรียกว่า CreateFolder แต่วิธีนี้สามารถสร้างโฟลเดอร์ใหม่ได้ก็ต่อเมื่อมีโฟลเดอร์ระดับบนเท่านั้น ดังนั้นฉันจึงเขียนฟังก์ชันที่สร้างโฟลเดอร์หลายระดับโดยอัตโนมัติและสร้างเพจแบบคงที่ ฯลฯ สะดวกมากที่จะ การใช้
งาน:
-
' สร้างโฟลเดอร์หลายระดับที่ระบุโดยอัตโนมัติ
'strPath เป็นเส้นทางที่แน่นอน
' โปรดเก็บลิขสิทธิ์ไว้เพื่อการอ้างอิง
' โดย im286_Anjer
'2005-4-3
ฟังก์ชั่น AutoCreateFolder(strPath) ' เป็น Boolean
เมื่อเกิดข้อผิดพลาด ดำเนินการต่อ
Dim astrPath, ulngPath, i, strTmpPath
ถัดไป
Dim objFSO
ถ้า InStr(strPath, "") <=0 หรือ InStr(strPath, ///) <= 0 จากนั้น
AutoCreateFolder = เท็จ
ออกจากฟังก์ชัน
สิ้นสุดถ้า
ตั้ง objFSO = Server.CreateObject("Scripting.FileSystemObject")
ถ้า objFSO.FolderExists(strPath) แล้ว
AutoCreateFolder = จริง
ออกจากฟังก์ชัน
สิ้นสุดถ้า
astrPath = แยก (strPath, "")
ulngPath = UBound(astrPath)
strTmpPath = ""
สำหรับ i = 0 ถึง ulngPath
strTmpPath = strTmpPath & astrPath(i) & ""
ถ้าไม่ใช่ objFSO.FolderExists(strTmpPath) จากนั้น
'สร้าง
objFSO.CreateFolder (strTmpPath)
สิ้นสุดถ้า
ต่อไป
ตั้ง objFSO = ไม่มีเลย
ถ้าผิดพลาด = 0 แล้ว
AutoCreateFolder = จริง
อื่น
AutoCreateFolder = เท็จ
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
วิธีการโทร:
MyPath = "C:abc"
ถ้า AutoCreateFolder(MyPath) แล้ว
ตอบกลับเขียน "สร้างโฟลเดอร์สำเร็จแล้ว"
อื่น
ตอบกลับเขียน "ไม่สามารถสร้างโฟลเดอร์"
สิ้นสุดถ้า