"ชั้นเรียนเขียนร่วมกับการดำเนินการ FSO"
มันยังคงได้รับการปรับปรุงและฟังก์ชั่นพื้นฐานมีอยู่แล้ว
นอกจากนี้ยังสามารถใช้เป็นบทช่วยสอนสำหรับผู้เริ่มต้น
รหัสโปรแกรม
-
'******************************** ระบบ CDS FSO Operation Class Beta1 ********************************************************
'วิธีการโทร: setObj = newfSocontrol
'เส้นทางทั้งหมดจะต้องเป็นเส้นทางที่แน่นอน โปรดใช้เมธอด Server.Mappath เพื่อแปลงเส้นทางก่อนกำหนดตัวแปร
'------ filerun ---------------------------------------
-
'พารามิเตอร์ที่ต้องการ:
'FilePath ----- เส้นทางไฟล์กระบวนการ
-
'พารามิเตอร์เสริม:
'fileLlowtype -------- ประมวลผลประเภทที่อนุญาตของไฟล์กำหนดวิธีการตัวอย่าง: gif | jpg | png | txt
'Filenewdir ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'filenewName ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'coverpr ------- ไม่ว่าจะเขียนทับไฟล์ที่มีอยู่ 0 คือ No 1 คือใช่ค่าเริ่มต้นคือ 1
'deletepr ------ ไม่ว่าจะลบไฟล์ต้นฉบับ 0 คือ No 1 คือใช่ค่าเริ่มต้นคือ 1
-
'------- updir (พา ธ ) ใช้ไดเรกทอรีหลักของเส้นทาง
'เส้นทางอาจเป็นไฟล์หรือไดเรกทอรี
'------- getPrefixName (พา ธ ) คำนำหน้าชื่อไฟล์
'พา ธ ต้องเป็นไฟล์อาจเป็นเส้นทางเต็มหรือชื่อไฟล์แยกต่างหาก
'------ getFilename (พา ธ ) เพื่อรับชื่อไฟล์
'พา ธ ต้องเป็นไฟล์อาจเป็นเส้นทางเต็มหรือชื่อไฟล์แยกต่างหาก
'------ getExtensionName (พา ธ ) ใช้ชื่อไฟล์ต่อท้ายไม่มี "
'พา ธ ต้องเป็นไฟล์อาจเป็นเส้นทางเต็มหรือชื่อไฟล์แยกต่างหาก
'------ คือไฟล์ (พา ธ ) พา ธ ไฟล์
'ถ้าเป็นเช่นนั้นให้ส่งคืนจริงมิฉะนั้นส่งคืนเท็จ
'------ folderCreat (เส้นทาง)
'------ FolderDelete (PATH, FileIF)
'----- fileCopy (path_from, path_to, coverif)
'----- filemove (path_from, path_to, coverif)
'----- Filedelete (เส้นทาง)
'----- filerename (OldName, NewName, coverif)
classfsocontrol
dimfso
privateFile_path, file_allowtype, file_newfolder_path, file_newname, file_coverif, file_deleteif
PublicPropertyletFilePath (strtype)
file_path = strtype
ปลายทาง
PublicPropertyletFileAllowtype (strtype)
file_allowtype = strtype
ปลายทาง
publicpropertyletfilenewidir (strtype)
file_newfolder_path = strtype
ปลายทาง
PublicPropertyletFilenewName (strtype)
file_newname = strtype
ปลายทาง
PublicPropertyletCoverpr (lngsize)
ifisnumeric (lngsize) จากนั้น
file_coverif = clng (lngsize)
endif
ปลายทาง
PublicPropertyletDeletepr (lngsize)
ifisnumeric (lngsize) จากนั้น
file_deleteif = clng (lngsize)
endif
ปลายทาง
Privatesubclass_initialize ()
setfso = createObject ("Scripting.filesystemObject")