asp+fso mengimplementasikan fungsi untuk mendeteksi keberadaan, pembuatan, dan penghapusan file atau folder//////////////////////////////// // //////////////////Operasi FSO////////////////////////////// ///// /////
'Periksa apakah folder itu ada
Folder FungsiKeluar (Folder)
Folder=Server.Mappath(Folder)
Setel FSO= Server.CreateObject(Scripting.FileSystemObject)
JIKA FSO.FolderExists(Folder) Lalu
FolderKeluar=benar
Kalau tidak
FolderKeluar=salah
Akhir JIKA
Fungsi Akhir
'Periksa apakah file itu ada
Fungsi Keluar File (Nama File)
Nama File=Server.Mappath(Nama File)
Setel FSO= Server.CreateObject(Scripting.FileSystemObject)
JIKA FSO.FileExists (Nama File) Lalu
FileKeluar=benar
Kalau tidak
FileExits=salah
Akhir JIKA
Fungsi Akhir
'Buat folder
Fungsi BuatFolder(Folder)
pada kesalahan lanjutkan berikutnya
Folder=Server.Mappath(Folder)
Setel FSO = Server.CreateObject(Scripting.FileSystemObject)
FSO.BuatFolder(Folder)
jika salah>0 maka
err.jelas
BuatFolder=Salah
kalau tidak
BuatFolder=Benar
berakhir jika
Fungsi akhir
'Buat berkas
Fungsi CreateFile (Nama File, Konten)
pada kesalahan lanjutkan berikutnya
Nama File=Server.Mappath(Nama File)
Setel FSO = Server.CreateObject(Scripting.FileSystemObject)
setel fd=FSO.createtextfile(NamaFile,benar)
fd.writeline Konten
jika salah>0 maka
err.jelas
BuatFile=Salah
kalau tidak
BuatFile=Benar
berakhir jika
Fungsi akhir
'Hapus file
fungsi HapusFile(NamaFile)
pada kesalahan lanjutkan berikutnya
Setel FSO = Server.CreateObject(Scripting.FileSystemObject)
jika FSO.FileExists(NamaFile) lalu
FSO.DeleteFile Nama File, benar
berakhir jika
jika salah>0 maka
err.jelas
HapusFile=Salah
kalau tidak
HapusFile=Benar
berakhir jika
fungsi akhir
'Hapus folder
fungsi HapusFolder(Folder)
pada kesalahan lanjutkan berikutnya
Folder=server.MapPath(Folder)
Setel FSO = Server.CreateObject(Scripting.FileSystemObject)
jika FSO.FolderExists(Folder) maka
FSO.Deletefolder Folder, benar
berakhir jika
jika salah>0 maka
err.jelas
Hapusfolder=Salah
kalau tidak
Hapusfolder=Benar
berakhir jika
fungsi akhir