asp+fso ใช้ฟังก์ชันสำหรับตรวจจับการมีอยู่ การสร้าง และการลบไฟล์หรือโฟลเดอร์'//////////////////////////////////// / /////////////////การดำเนินการ FSO////////////////////////////// ////////////
'ตรวจสอบว่ามีโฟลเดอร์อยู่หรือไม่
ฟังก์ชั่น FolderExits(โฟลเดอร์)
โฟลเดอร์=Server.Mappath(โฟลเดอร์)
ตั้งค่า FSO= Server.CreateObject (Scripting.FileSystemObject)
ถ้า FSO.FolderExists (โฟลเดอร์) แล้ว
โฟลเดอร์ออก=จริง
อื่น
FolderExits=เท็จ
สิ้นสุด ถ้า
สิ้นสุดฟังก์ชัน
'ตรวจสอบว่ามีไฟล์อยู่หรือไม่
ฟังก์ชั่น FileExits (ชื่อไฟล์)
FileName=Server.Mappath(ชื่อไฟล์)
ตั้งค่า FSO= Server.CreateObject (Scripting.FileSystemObject)
ถ้า FSO.FileExists (ชื่อไฟล์) แล้ว
FileExits=true
อื่น
FileExits=เท็จ
สิ้นสุด ถ้า
สิ้นสุดฟังก์ชัน
'สร้างโฟลเดอร์
ฟังก์ชั่น CreateFolder(โฟลเดอร์)
เมื่อเกิดข้อผิดพลาดดำเนินการต่อต่อไป
โฟลเดอร์=Server.Mappath(โฟลเดอร์)
ตั้งค่า FSO = Server.CreateObject (Scripting.FileSystemObject)
FSO.CreateFolder(โฟลเดอร์)
ถ้าผิดพลาด>0 แล้ว
ผิดพลาดชัดเจน
CreateFolder=เท็จ
อื่น
CreateFolder=จริง
สิ้นสุดถ้า
สิ้นสุดฟังก์ชัน
'สร้างไฟล์
ฟังก์ชั่น CreateFile (ชื่อไฟล์, เนื้อหา)
เมื่อเกิดข้อผิดพลาดดำเนินการต่อต่อไป
FileName=Server.Mappath(ชื่อไฟล์)
ตั้งค่า FSO = Server.CreateObject (Scripting.FileSystemObject)
ตั้งค่า fd=FSO.createtextfile (ชื่อไฟล์, จริง)
เนื้อหา fd.writeline
ถ้าผิดพลาด>0 แล้ว
ผิดพลาดชัดเจน
CreateFile=เท็จ
อื่น
CreateFile=จริง
สิ้นสุดถ้า
สิ้นสุดฟังก์ชัน
'ลบไฟล์
ฟังก์ชั่น DeleteFile (ชื่อไฟล์)
เมื่อเกิดข้อผิดพลาดดำเนินการต่อต่อไป
ตั้งค่า FSO = Server.CreateObject (Scripting.FileSystemObject)
ถ้า FSO.FileExists(FileName) แล้ว
FSO.DeleteFile ชื่อไฟล์ จริง
สิ้นสุดถ้า
ถ้าผิดพลาด>0 แล้ว
ผิดพลาดชัดเจน
DeleteFile=เท็จ
อื่น
DeleteFile=จริง
สิ้นสุดถ้า
ฟังก์ชั่นสิ้นสุด
'ลบโฟลเดอร์
ฟังก์ชั่น DeleteFolder (โฟลเดอร์)
เมื่อเกิดข้อผิดพลาดดำเนินการต่อต่อไป
โฟลเดอร์=server.MapPath(โฟลเดอร์)
ตั้งค่า FSO = Server.CreateObject (Scripting.FileSystemObject)
ถ้า FSO.FolderExists(Folder) แล้ว
FSO.Deletefolder โฟลเดอร์ จริง
สิ้นสุดถ้า
ถ้าผิดพลาด>0 แล้ว
ผิดพลาดชัดเจน
Deletefolder=เท็จ
อื่น
Deletefolder=จริง
สิ้นสุดถ้า
ฟังก์ชั่นสิ้นสุด