Kode implementasi kelas Fso, teman-teman yang sedang belajar kelas asp bisa merujuknya. Kode ini relatif lama. Copy kode kodenya sebagai berikut:
<%
' ===== ================
'= Versi sistem: 1.0 =
'= Versi berkas: 1.0 =
'= Tanggal pembuatan teks: 31-10-2005 =
' ===== ================
Kelas Cls_IO
FileSystemObject Pribadi
Sub Kelas_Terminate() Pribadi
Jika IsObject(FileSystemObject) Lalu
Setel FileSystemObject = Tidak Ada
Akhiri Jika
Akhiri Sub
'//Buat objek FileSystemObject
Fungsi Publik Init_Object()
Pada Kesalahan Lanjutkan Berikutnya
Jika Bukan IsObject(FileSystemObject) Lalu
Setel FileSystemObject = Server.CreateObject(Scripting.FileSystemObject)
Jika Err.Number <> 0 Lalu
Init_Object = Salah
Err. Jelas
Fungsi Keluar
Kalau tidak
Init_Object = Benar
Akhiri Jika
Akhiri Jika
Fungsi Akhir
Sub Publik DeleteFile (ByVal Str)
Pada Kesalahan Lanjutkan Berikutnya
Panggil FileSystemObject.DeleteFile(Server.MapPath(../UpLoadFile/&Str))
Akhiri Sub
Fungsi Publik IsFolder(ByVal Str)
IsFolder = FileSystemObject.FolderExists(Str)
Fungsi Akhir
ShowFolder Fungsi Publik (ByVal Str)
Redupkan Obj_Folder,Obj_File
Setel Obj_Folder = FileSystemObject.GetFolder(Server.MapPath(Str))
Atur ShowFolder = Obj_Folder.Files
Setel Obj_Folder = Tidak Ada
Fungsi Akhir
Kelas Akhir
%>