"Kelas yang ditulis dalam kombinasi dengan operasi FSO"
Itu masih ditingkatkan dan fungsi dasar sudah ada.
Itu juga dapat digunakan sebagai tutorial untuk pemula
Kode Program
<%
'************************************ CDS SISTEM FSO Kelas Operasi Beta1 **********************
'Metode panggilan: setObj = newfsocontrol
'Semua jalur harus merupakan jalur mutlak. Harap gunakan metode server.mappath untuk mengonversi jalur sebelum mendefinisikan variabel
'------ Filerun ---------------------------------------
'
'Parameter yang diperlukan:
'FilePath ----- Proses Path File
'
'Parameter opsional:
'FileallowType -------- Proses Jenis File yang Diizinkan, Tentukan Metode Contoh: GIF | JPG | PNG | TXT
'FileNewDir ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'FileNewName--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Coverpr ------- apakah akan menimpa file yang ada 0 tidak 1 adalah ya default adalah 1
'deletePr ------ apakah akan menghapus file asli 0 tidak 1 adalah ya default adalah 1
'---------------------------------------------------------
'------- UPDIR (PATH) mengambil direktori induk path
'Path bisa berupa file atau direktori
'------- getPrefixname (path) awalan nama file
'Path harus file, bisa berupa jalur lengkap, atau nama file yang terpisah
'------ getFileName (path) untuk mendapatkan nama file
'Path harus file, bisa berupa jalur lengkap, atau nama file yang terpisah
'------ getExtensionName (PATH) mengambil sufiks nama file, tidak berisi "."
'Path harus file, bisa berupa jalur lengkap, atau nama file yang terpisah
'------ adalah Fileis (Path) Path a File
'Jika demikian, kembalikan benar jika tidak kembali salah
'------ FolderCreat (jalur)
'------ FolderDelete (Path, Fileif)
'----- FileCopy (path_from, path_to, coverif)
'----- FileMove (path_from, path_to, covertif)
'----- FileDelete (Path)
'----- Filerename (OldName, Newname, CoverIF)
Classfsocontrol
Dimfso
Privatefile_path, file_allowType, file_newolder_path, file_newname, file_coverif, file_deleteif
PublicPropertyletFilePath (Strtype)
File_path = strtype
Endproperty
PublicPropertyletFileAllowType (strtype)
File_allowType = strtype
Endproperty
PublicPropertyletFilenewDir (Strtype)
File_newolder_path = strtype
Endproperty
PublicPropertyletFileNewName (Strtype)
File_newname = strtype
Endproperty
PublicPropertyletCoverPr (lngsize)
Ifisnumerik (lngsize) lalu
File_coverif = clng (lngsize)
Endif
Endproperty
PublicPropertyletDeletEpr (lngsize)
Ifisnumerik (lngsize) lalu
File_deleteif = clng (lngsize)
Endif
Endproperty
Privatesubclass_initialize ()
SetFSO = createObject ("Scripting.FilesystemObject")