|
|
|
File System Object (FSO) |
Dengan adanya object
ini memungkinkan kita untuk mengotak atik system file di sebuah komputer
atau server, misalnya mengetahui sisa ruang hardisk, membuat folder,
atau menuliskan string ke dalam file text.
File system object(fso) dapat bekerja karena adanya sebuah library
yang mengendalikannya. Library ini adalah scrrun.dll.
untuk mengetahui keberadaan file ini coba Anda lakukan :
Start | Find | Files or Folders | scrrun.dll
Untuk mempergunakan object ini terlebih dahulu Anda harus mengesetnya
:
<% Set
fso = CreateObject("Scripting.FileSystemObject") %>
Membuat Folder
<%
Set dir = CreateObject("Scripting.FileSystemObject")
dir.CreateFolder("c:\latihan")
%>
menghapus folder
<%
Set dir = CreateObject("Scripting.FileSystemObject")
dir.DeleteFolder("c:\latihan")
%>
mengkopi folder
<%
Set dir = CreateObject("Scripting.FileSystemObject")
dir.CopyFolder "c:\diboy_doc","c:\latihan"
%>
membuat file baru
<%
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("c:\latihan.txt")
%>
File yang barusan Anda buat adalah file teks kosong, artinya dia tidak
berisi data sedikitpun. Lalu bagaimana caranya untuk memasukkan data
ke dalam file tersebut?
Dalam pembuatan file text, object yang sangat berperan adalah textstream.
Object ini akan menyediakan metode dan property yang berguna untuk
membuka file yang telah dibuat, menuliskan data-data, dan membaca
data-data. Perhatikan contoh di bawah ini :
<%
'setelah anda mencoba script ini, silahkan Anda periksa di drive c:\
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.OpenTextFile("c:\latihan.txt", 8, TRUE)
MyFile.WriteLine "I MISS YOU BABY......."
MyFile.WriteLine "When I am alone, Your face always around on myhead"
MyFile.WriteLine "are you miss me too ????"
MyFile.Close
%>
pertama variable MyFile akan digunakan untuk membuka file atau dengan
kata lain membuat koneksi dengan file latihan.txt. Kemudian, angka
8 berarti aksi kita kepada file tersebut adalah ForAppending, yakni
kita bermaksud menambahkan data baru.
Nilai TRUE dimaksudkan bila file yang dimaksud tidak ada maka secara
otomatis script akan membuatnya. Sedangkan, Metode WriteLine digunakan
untuk menuliskan data.
Untuk membaca file yang telah Anda buat, Anda membutuhkan metode readLine.
Perhatikan contoh berikut :
<%
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.OpenTextFile("c:\latihan.txt", 1)
baris_1 = MyFile.ReadLine
baris_2 = MyFile.ReadLine
baris_3 = MyFile.ReadLine
Response.Write baris_1
Response.Write"<br>" & baris_2
Response.Write"<br>" & baris_3
MyFile.Close
%>
Di sini saya tidak membahas pembuatan file text dengan detail karena
bukan ini yang menjadi focus saya nanti. Saya hanya ingin Anda tidak
bingung pada saat saya menggunakan metode ini, saya ingin Anda focus
ke dalam pembuatan data ke dalam database acces. |
|
|
| |
|
|
|
|
|
:: Menu Utama |
|
|
|
:: Kategori SCRIPTS |
|
|
|
:: Statistik |
|
| |
Hit
Counter |
82996 |
| |
Halaman
Terbuka |
631938 |
| |
Total
Scripts Kiriman |
43654 |
| |
Total
Tip & Trik |
78 |
|
Silahkan menghubungi
kami. Berikan komentar Anda, baik positif
ataupun negatif, untuk membantu pengembangan Indoscripts
|
| |
|
|
|
| |
|
|
http://www.indoscripts.cjb.net