Apa fungsi operasi file yang umum digunakan pada objek FileSystem?
1. akar
akar format fungsi()
Deskripsi fungsi mengembalikan variabel string jalur
Kode aplikasi 'sampel string = c:/intels/jingcaichunfeng/'
Akar Fungsi Publik()
root = Permintaan.ServerVariables(Appl_Physical_Path)
Fungsi Akhir
2. URL
url format fungsi()
Deskripsi fungsi mengembalikan variabel string URL
Kode aplikasi 'contoh string = http://www.intels.net/filesys.asp'
Url Fungsi Publik()
url =http://&Request.ServerVariables(Nama_Server)
&Permintaan.Variabel Server(Nama_Script)
Fungsi Akhir
3.mkdir
Format fungsi mkdir(NamaDIr)
Deskripsi Fungsi Membuat direktori dan mengembalikan informasi
Kode aplikasiFungsi Publik mkdir(xVar)
Setel Sys = Server.CreateObject(Scripting.FileSystemObject)
Jika Sys.FolderExists( xVar ) Lalu
msg =Maaf, direktori sudah ada!
Kalau tidak
Sys.BuatFolder(xVar)
msg =Selamat, direktori berhasil dibuat!
Akhiri Jika
Setel Sys=Tidak Ada
mkdir = pesan
Fungsi Akhir
4.rmdir
Format fungsi rmdir(NamaDir)
Deskripsi FungsiMenghapus direktori dan mengembalikan informasi
Kode aplikasiFungsi Publik rmdir(xVar)
Setel Sys = Server.CreateObject(Scripting.FileSystemObject)
Jika Sys.FolderExists( xVar ) Lalu
Sys.HapusFolder(xVar)
msg =Selamat, direktori berhasil dihapus!
Kalau tidak
msg =Maaf, direktori belum dibuat!
Akhiri Jika
Setel Sys=Tidak Ada
rmdir = pesan
Fungsi Akhir
5.isdir
Format fungsi isdir(NamaDir)
Deskripsi fungsi Memeriksa apakah direktori ada dan mengembalikan informasi
Kode aplikasiFungsi Publik isdir(xVar)
Setel Sys = Server.CreateObject(Scripting.FileSystemObject)
Jika Sys.FolderExists( xVar ) Lalu
pesan = Benar
Kalau tidak
pesan = Salah
Akhiri Jika
Setel Sys=Tidak Ada
isdir = pesan
Fungsi Akhir
6.cpdir
Format fungsi cpdir (NamaDir, Tujuan, Timpa)
Deskripsi fungsi: Menyalin folder dan mengembalikan informasi
Kode aplikasiFungsi Publik cpdir(xVar, yVar, zVar)
Setel Sys = Server.CreateObject(Scripting.FileSystemObject)
Jika Sys.FolderExists( xVar ) Lalu
Sys.CopyFolder xVar, root&yVar, zVar
msg =Selamat, penyalinan direktori berhasil!
Kalau tidak
msg =Maaf, direktori yang Anda cari tidak ditemukan!
Akhiri Jika
Setel Sys=Tidak Ada
cpdir=pesan
Fungsi Akhir
7.mvdir
Format fungsi mvdir(NamaDir, Tujuan)
Fungsi Deskripsi Memindahkan folder dan mengembalikan informasi
Kode aplikasiFungsi Publik mvdir(xVar, yVar)
Setel Sys = Server.CreateObject(Scripting.FileSystemObject)
Jika Sys.FolderExists( xVar ) Lalu
Sys.MoveFolder xVar, root&yVar
msg =Selamat, direktori telah dipindahkan!
Kalau tidak
msg =Maaf, direktori yang Anda cari tidak ditemukan!
Akhiri Jika
Setel Sys=Tidak Ada
mvdir = pesan
Fungsi Akhir
8.isfile
Format fungsi isfile(Nama File)
Deskripsi fungsi: Periksa apakah file tersebut ada dan kembalikan informasinya
Kode aplikasiFungsi Publik isfile(xVar)
Setel Sys = Server.CreateObject(Scripting.FileSystemObject)
Jika Sys.FileExists( xVar ) Lalu
pesan = Benar
Kalau tidak
pesan = Salah
Akhiri Jika
Setel Sys=Tidak Ada
isfile = pesan
Fungsi Akhir
9. file apa
Format fungsi wfile (Nama File, Timpa, String)
Deskripsi fungsi menulis string ke file dan mengembalikan informasi
Kode aplikasiFungsi Publik wfile(xVar, yVar, zVar)
Setel Sys = Server.CreateObject(Scripting.FileSystemObject)
Jika yVar Lalu
Setel Txt = Sys.OpenTextFile(xVar, 2)
Txt.Tulis(zVar)
Txt.Tutup
msg =Selamat, file berhasil dibuat dan disimpan!
Kalau tidak
Jika Sys.FileExists( xVar ) Lalu
msg =Maaf, file sudah ada!
Akhiri Jika
Setel Sys=Tidak Ada
wfile=pesan
Fungsi Akhir
10.rfile
Format fungsi rfile(Nama File)
Deskripsi fungsi membaca file dan mengembalikan informasi
Kode aplikasiFungsi Publik rfile(xVar)
Setel Sys = Server.CreateObject(Scripting.FileSystemObject)
Jika Sys.FileExists( xVar ) Lalu
Setel Txt = Sys.OpenTextFile(xVar, 1)
pesan = Txt.BacaSemua
Txt.Tutup
Kalau tidak
msg =Maaf, file tidak ada!
Akhiri Jika
Setel Sys=Tidak Ada
rfile=pesan
Fungsi Akhir
11. file
Format fungsi afile (Nama File, String)
Deskripsi Fungsi Menambahkan string ke file dan mengembalikan informasi
Kode aplikasi File Fungsi Publik (xVar, zVar)
Setel Sys = Server.CreateObject(Scripting.FileSystemObject)
Jika Sys.FileExists( xVar ) Lalu
Setel Txt = Sys.OpenTextFile(xVar, 8)
Txt.Tulis(zVar)
Txt.Tutup
msg =Selamat, file berhasil ditambahkan dan disimpan!
Kalau tidak
msg =Maaf, file tidak ada!
Akhiri Jika
Setel Sys=Tidak Ada
afile = pesan
Fungsi Akhir
12.cpfile
Format fungsi cpfile (Nama File, Tujuan, Timpa)
Deskripsi fungsi: Menyalin file dan mengembalikan informasi
Kode aplikasiFungsi Publik cpfile(xVar, yVar, zVar)
Setel Sys = Server.CreateObject(Scripting.FileSystemObject)
Jika Sys.FileExists( xVar ) Lalu
Sys.CopyFile xVar, root&yVar, zVar
msg =Selamat, file berhasil disalin!
Kalau tidak
msg =Maaf, penyalinan file gagal!
Akhiri Jika
Setel Sys=Tidak Ada
cpfile = pesan
Fungsi Akhir
13.mvfile
Format fungsi mvfile (Nama File, Tujuan)
Deskripsi Fungsi Memindahkan file dan mengembalikan informasi
Kode aplikasi Fungsi Publik mvfile(xVar, yVar)
Setel Sys = Server.CreateObject(Scripting.FileSystemObject)
Jika Sys.FileExists( xVar ) Lalu
Sys.MoveFile xVar, root&yVar
msg =Selamat, file berhasil dipindahkan!
Kalau tidak
msg =Maaf, pemindahan file gagal!
Akhiri Jika
Setel Sys=Tidak Ada
mvfile = pesan
Fungsi Akhir
14.rmfile
Format fungsi rmfile (Nama File)
Deskripsi FungsiMenghapus file dan mengembalikan informasi
Kode aplikasiFungsi Publik rmfile(xVar)
Setel Sys = Server.CreateObject(Scripting.FileSystemObject)
Jika Sys.FileExists( xVar ) Lalu
Sys.HapusFile(xVar)
msg =Selamat, file berhasil dihapus!
Kalau tidak
msg =Maaf, penghapusan file gagal!
Akhiri Jika
Setel Sys=Tidak Ada
rmfile = pesan
Fungsi Akhir