FSO berarti FileSystemObject, yang merupakan objek sistem file. Model objek FSO disertakan dalam perpustakaan tipe Scripting (Scrrun.Dll). Ini juga berisi lima objek: Drive, Folder, File, FileSystemObject dan TextStream. Sangat mudah untuk mengoperasikan file dan folder properti objek FSO
DateCreated mengembalikan tanggal dan waktu pembuatan folder
DateLastAccessed mengembalikan tanggal dan waktu file terakhir diakses
DateLastModified mengembalikan tanggal dan waktu file terakhir diubah
Drive mengembalikan objek Drive dari drive tempat file berada.
Nama menetapkan atau mengembalikan nama file
ParentFolder mengembalikan objek Folder dari folder induk file
Path mengembalikan jalur absolut file, nama file yang panjang dapat digunakan
ShortName mengembalikan bentuk nama file 8.3 gaya DOS.
ShortPath mengembalikan jalur absolut gaya DOS 8.3 ke file
Ukuran mengembalikan ukuran file (byte)
Ketik Jika memungkinkan, mengembalikan string yang menjelaskan jenis file.
Metode objek file FSO (File).
Penggunaan metode objek file FSO
CopyFile menyalin satu atau lebih file ke jalur baru
CreateTextFile membuat file dan mengembalikan objek TextStream
DeleteFile menghapus file
OpenTextFile membuka file dan mengembalikan objek TextStream untuk dibaca atau ditambahkan
Ganti nama file:
Copy kode kodenya sebagai berikut:
Fungsi reName (nama sumber, nama tujuan)
redupkan oFso, oFile
set oFso=server.createobject(Scripting.FileSystemObject)
setel oFile=oFso.getFile(Server.mappath(namasumber))
oFile.Nama=Nama Tujuan
Atur oFso=Tidak Ada
Setel oFile=Tidak Ada
Fungsi Akhir
Hapus file:
Copy kode kodenya sebagai berikut:
Fungsi FSOdel(Namafile)
redup fso,f
set fso = server.CreateObject(scripting.filesystemobject)
f=server.MapPath(Namafile)
jika fso.FileExists(f) maka
fso.DeleteFile f,benar
berakhir jika
atur f = tidak ada
atur fso = tidak ada
Fungsi Akhir
Ganti string dalam file:
Copy kode kodenya sebagai berikut:
Fungsi FSReplace (Nama file, Target, repString)
Redupkan objFSO,objCountFile,FiletempData
Setel objFSO = Server.CreateObject(Scripting.FileSystemObject)
Setel objCountFile = objFSO.OpenTextFile(Server.MapPath(namafile),1,True)
FiletempData = objCountFile.ReadAll
objCountFile.Tutup
FiletempData=Ganti(FiletempData,Target,repString)
Setel objCountFile=objFSO.CreateTextFile(Server.MapPath(namafile),True)
objCountFile.Tulis FiletempData
objCountFile.Tutup
Setel objCountFile=Tidak Ada
Setel objFSO = Tidak Ada
Fungsi Akhir
<%
'******************************************************* ***
'Nama fungsi: BuatFolder(sPath)
'Fungsi: Membuat direktori
'Parameter: sPath: jalur direktori relatif dibuat
'Nilai kembalian: benar jika berhasil, salah jika gagal
'******************************************************* ***
'response.Tulis buatfolder(/dgsunshine/UploadFile/demo1/)
Fungsi BuatFolder(sPath)
Pada Kesalahan Lanjutkan Berikutnya
Redupkan Fso,Arrfolder,Folder,i,j
Jika sPath= maka
BuatFolder = Salah
Fungsi Keluar
Akhiri Jika
Jika Kiri(sPath,1) = / Lalu
Map = /
sPath = Tengah(sPath,2,Len(sPath))
Kalau tidak
Map = ./
Akhiri Jika
jika Kanan(sPath,1) = / maka sPath = Kiri(sPath,Len(sPath)-1)
ArrFolder = Pisahkan(sPath,/)
Setel Fso = Server.CreateObject(Scripting.FileSystemObject)
Untuk i = 0 Ke Ubound(ArrFolder)
Jika saya = 0 maka
Folder = Folder & ArrFolder(i) & /
Kalau tidak
Folder = Folder & ArrFolder(i) & /
Akhiri Jika
Jika Fso.folderExists(Server.MapPath(Folder)) = False maka
respon.Tulis server.MapPath(folder)
Fso.createFolder(Server.MapPath(Folder))
Akhiri Jika
Berikutnya
Tetapkan Fso = tidak ada
Jika Err.Number <> 0 maka
Err.hapus()
BuatFolder = Salah
Kalau tidak
BuatFolder = Benar
Akhiri Jika
Fungsi akhir
Fungsi getFile(paramFilePath)
Setel Fso = Server.CreateObject(Scripting.FileSystemObject)
Setel Fso_Read = fso.OpenTextFile(Server.MapPath(paramFilePath),1,false,-2)
getFile = Fso_Read.readall
Setel Fso_Read = Tidak Ada
Tetapkan Fso = Tidak Ada
Fungsi Akhir
'******************************************************* ***
'Nama fungsi: CreateFile(paramFileContent,paramFilePath)
'Fungsi: Membuat file
'Parameter: paramFileContent 'Isi file
' paramFilePath 'Nama file (tidak termasuk jalur)
'Nilai kembalian: benar jika berhasil, salah jika gagal
'******************************************************* ***
Fungsi CreateFile(paramFileContent,paramFilePath)
Pada Kesalahan Lanjutkan Berikutnya
Redupkan Fso,fTulis
Setel Fso = Server.CreateObject(Scripting.FileSystemObject)
Setel fWrite = Fso.CreateTextFile(Server.Mappath(paramFilePath),true)
fWrite.write paramFileContent
fTulis.tutup()
Setel fWrite = tidak ada
Tetapkan Fso = tidak ada
Jika Err.number <> 0 Lalu
Err.hapus()
BuatFile = Salah
Kalau tidak
BuatFile = Benar
Akhiri Jika
Fungsi Akhir
'******************************************************* ***
'Nama fungsi: DelFile(Jalur File)
'Fungsi: menghapus file
'Parameter: FilePath 'Jalur file beberapa file dipisahkan oleh |
'Nilai kembalian: benar jika berhasil, salah jika gagal
'******************************************************* ***
Fungsi DelFile(Jalur File)
Pada Kesalahan Lanjutkan Berikutnya
Redupkan fso,arrFile,i
Jika GetSafeStr(FilePath,)= maka
BuatFolder = salah
Fungsi Keluar
Akhiri Jika
arrFile = Pisahkan(Jalur File,|)
Setel Fso = Server.CreateObject(Scripting.FileSystemObject)
untuk i=0 hingga UBound(arrFile)
Jalur File = arrFile(i)
Jika Fso.FileExists(Server.MapPath(FilePath)) maka
Fso.DeleteFile Server.MapPath(FilePath)
Akhiri Jika
Berikutnya
Tetapkan fso = tidak ada
Jika Err maka
Err.hapus()
DelFile = salah
Kalau tidak
DelFile = benar
Akhiri Jika
Fungsi Akhir
'******************************************************* ***
'Nama fungsi: DelFolder(FolderPath)
'Fungsi: menghapus direktori
'Parameter: FolderPath 'Jalur direktori' Beberapa direktori dipisahkan oleh |
'Nilai kembalian: benar jika berhasil, salah jika gagal
'******************************************************* ***
Fungsi DelFolder(Jalur Folder)
Pada Kesalahan Lanjutkan Berikutnya
Redupkan Fso,arrFolder,i
Jika GetSafeStr(FolderPath,)= maka
DelFolder = salah
Fungsi Keluar
Akhiri Jika
arrFolder = Pisahkan(Jalur Folder,|)
Setel Fso = Server.CreateObject(Scripting.FileSystemObject)
Untuk i=0 hingga UBound(arrFolder)
Jalur Folder = arrFolder(i)
Jika Fso.folderexists(Server.MapPath(FolderPath)) maka
Fso.deleteFolder Server.MapPath(FolderPath)
Akhiri Jika
Berikutnya
Jika Err maka
Err.hapus()
DelFolder = salah
'ShowError Gagal menghapus direktori,
kalau tidak
DelFolder = benar
Akhiri Jika
Fungsi Akhir
'******************************************************* ***
'Nama fungsi: IsExistFile(FilePath)
'Fungsi: Menentukan apakah file atau direktori ada
'Parameter: FilePath 'Jalur file beberapa file dipisahkan oleh |
'Nilai kembalian: benar jika berhasil, salah jika gagal
'******************************************************* ***
Fungsi IsExistFile(Jalur File)
Pada Kesalahan Lanjutkan Berikutnya
Redupkan fso,arrFile,i
Jika GetSafeStr(FilePath,)= maka
IsExistFile = salah
Akhiri Jika
arrFile = Pisahkan(Jalur File,|)
Setel Fso = Server.CreateObject(Scripting.FileSystemObject)
untuk i=0 hingga UBound(arrFile)
Jalur File = arrFile(i)
Jika Fso.FileExists(Server.MapPath(FilePath)) maka
IsExistFile = Benar
Akhiri Jika
Jika Fso.folderexists(Server.MapPath(FilePath)) maka
IsExistFile = Benar
Akhiri Jika
Berikutnya
Tetapkan fso = tidak ada
Jika Err maka
Err.hapus()
IsExistFile = salah
'ShowError Gagal menentukan apakah file atau direktori ada,
kalau tidak
IsExistFile = benar
Akhiri Jika
Fungsi Akhir
'******************************************************* ***
'Nama fungsi: DelFile(Jalur File)
'Fungsi: menghapus file atau direktori
'Parameter: FilePath 'Jalur file beberapa file dipisahkan oleh |
'Nilai kembalian: benar jika berhasil, salah jika gagal
'******************************************************* ***
Fungsi DelFile(Jalur File)
Pada Kesalahan Lanjutkan Berikutnya
Redupkan fso,arrFile,i
Jika GetSafeStr(FilePath,)= maka
BuatFolder = salah
Akhiri Jika
arrFile = Pisahkan(Jalur File,|)
Setel Fso = Server.CreateObject(Scripting.FileSystemObject)
untuk i=0 hingga UBound(arrFile)
Jalur File = arrFile(i)
Jika Fso.FileExists(Server.MapPath(FilePath)) maka
Fso.DeleteFile Server.MapPath(FilePath)
Akhiri Jika
Jika Fso.folderexists(Server.MapPath(FilePath)) maka
Fso.deleteFolder Server.MapPath(FilePath)
Akhiri Jika
Berikutnya
Tetapkan fso = tidak ada
Jika Err maka
Err.hapus()
DelFile = salah
'ShowError Penghapusan file atau direktori gagal,
kalau tidak
DelFile = benar
Akhiri Jika
Fungsi Akhir
'******************************************************* ***
'Nama fungsi: ReNameFile((Nama lama,Nama baru)
'Fungsi: Mengganti nama file atau direktori
'Parameter: strOldName 'Beberapa nama file asli dipisahkan oleh |
' strNewName ' Beberapa nama file baru dipisahkan dengan |
' Harap menjaga kedua parameter di atas tetap konsisten
'Nilai kembalian: benar jika berhasil, salah jika gagal
'******************************************************* ***
Fungsi ReNameFile(strNama Lama,strNama Baru)
Pada Kesalahan Lanjutkan Berikutnya
Redupkan fso,arrOld,arrNew,i,oldName,newName
lama = GetSafeStr(strNamaLama,)
File Baru = GetSafeStr(strNama Baru,)
Jika lama = atau Newfile = maka
ReNameFile = salah
Fungsi Keluar
Akhiri Jika
arrLama = Pisah(strNamaLama,|)
arrNew = Pisahkan(strNamaBaru,|)
Jika UBound(arrOld)<> UBound(arrNew) maka
ReNameFile = salah
Fungsi Keluar
Akhiri Jika
Setel Fso = Server.CreateObject(Scripting.FileSystemObject)
untuk i=0 hingga UBound(arrOld)
Namalama = Server.MapPath(arrOld(i))
Nama baru = Server.MapPath(arrBaru(i))
Jika Fso.FileExists(oldName) dan bukan Fso.FileExists(newName) maka
fso.MoveFile nama lama, Nama baru
'ReNameFile = Benar
Akhiri Jika
Berikutnya
Tetapkan fso = tidak ada
Jika Err.Number <> 0 Lalu
Err.hapus()
ReNameFile = salah
Kalau tidak
ReNameFile = Benar
Akhiri Jika
Fungsi Akhir
'******************************************************* ***
'Nama fungsi: CopyFiles((TempSource,TempEnd)
'Fungsi: Menyalin file atau direktori
'Parameter: TempSource 'Beberapa nama file sumber dipisahkan oleh |
'TempEnd' Beberapa nama file tujuan dipisahkan oleh |
' Catatan: Harap jaga agar kedua parameter di atas tetap konsisten dan keduanya merupakan jalur lengkap.
'Telah diproses dengan metode Server.MapPath
'Nilai kembalian: benar jika berhasil, salah jika gagal
'******************************************************* ***
Fungsi CopyFiles(TempSource,TempEnd)
Pada Kesalahan Lanjutkan Berikutnya
Redupkan CopyFSO,arrSource,arrEnd
SalinFile = salah
Setel CopyFSO = Server.CreateObject(Scripting.FileSystemObject)
Jika TempSource = atau TempEnd = maka
ErrRaise Copy file atau direktori, kondisinya kosong
SalinFile = salah
Fungsi Keluar
Akhiri Jika
arrSource = Pisahkan(TempSource,|)
arrEnd = Pisahkan(TempEnd,|)
Jika UBound(arrSource) <> UBound(arrEnd) maka
Salin File = salah
Fungsi Keluar
Akhiri Jika
untuk i=0 hingga UBound(arrSource)
srcNama = arrSource(i)
tarName = arrEnd(i)
JIKA CopyFSO.FileExists(srcName) dan bukan CopyFSO.FileExists(tarName) maka
CopyFSO.CopyFile srcName,tarName
CopyFile = benar
Akhiri Jika
JIKA CopyFSO.FolderExists(srcName) dan bukan CopyFSO.FolderExists(tarName) maka
CopyFSO.CopyFolder srcName,tarName
CopyFile = benar
Akhiri Jika
Berikutnya
Setel CopyFSO = Tidak Ada
Jika Err maka
'Err.hapus()
SalinFile = salah
Akhiri Jika
Fungsi Akhir
%>