โค้ดการใช้งานคลาส Fso เพื่อนที่กำลังเรียนรู้คลาส asp สามารถอ้างอิงได้ รหัสนี้ค่อนข้างเก่า คัดลอกรหัสรหัสดังต่อไปนี้:
-
'=================================================' = ===============
'= เวอร์ชันของระบบ: 1.0 =
'= เวอร์ชันไฟล์: 1.0 =
'= วันที่สร้างข้อความ: 31-10-2548 =
'=================================================' = ===============
คลาส Cls_IO
FileSystemObject ส่วนตัว
Class_Terminate ส่วนตัวย่อย ()
ถ้า IsObject(FileSystemObject) แล้ว
ตั้งค่า FileSystemObject = ไม่มีเลย
สิ้นสุดถ้า
จบหมวดย่อย
'//สร้างวัตถุ FileSystemObject
ฟังก์ชั่นสาธารณะ Init_Object()
เมื่อเกิดข้อผิดพลาด ดำเนินการต่อต่อไป
ถ้าไม่ใช่ IsObject(FileSystemObject) แล้ว
ตั้งค่า FileSystemObject = Server.CreateObject (Scripting.FileSystemObject)
ถ้า Err.Number <> 0 แล้ว
Init_Object = เท็จ
ผิดพลาด.เคลียร์
ออกจากฟังก์ชัน
อื่น
Init_Object = จริง
สิ้นสุดถ้า
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
DeleteFile ย่อยสาธารณะ (ByVal Str)
เมื่อเกิดข้อผิดพลาด ดำเนินการต่อต่อไป
เรียก FileSystemObject.DeleteFile (Server.MapPath (../UpLoadFile/&Str))
จบหมวดย่อย
ฟังก์ชั่นสาธารณะ IsFolder (ByVal Str)
IsFolder = FileSystemObject.FolderExists(Str)
ฟังก์ชันสิ้นสุด
ShowFolder ฟังก์ชั่นสาธารณะ (ByVal Str)
หรี่ Obj_Folder,Obj_File
ตั้ง Obj_Folder = FileSystemObject.GetFolder(Server.MapPath(Str))
ตั้งค่า ShowFolder = Obj_Folder.Files
ตั้ง Obj_Folder = ไม่มีเลย
ฟังก์ชันสิ้นสุด
จบคลาส
-