Cara Mudah Operasi File dengan Visual Basic 6

 

Sebagai programmer palugada, selalu saja ada hal baru yang mungkin kita temui dijalan koding yang berliku dan naik turun ini. Salah satunya adalah akses file. Contohnya sewaktu aku ingin membuat aplikasi update otomatis yang bisa berjalan kalau ada aplikasi versi terbaru. 

Logika aplikasi update otomatis ini mudah sekali, setiap kali aplikasi dijalankan. Dia akan mengecek ke server file apakah ada aplikasi dengan versi baru, kalau ada maka jalankan aplikasi updater, replace file aplikasi di kompter dengan yang ada di server. Sederhana sekali kan? meski sederhana, kalau kita nggak tahu komponen apa yang akan dipakai ya tetap saja susah. Bener nggak?

Alhamdulilah Visual Basic 6 sudah menyediakan komponen yang membuat akses file menjadi lebih mudah, bahkan sangat mudah. Tapi ternyata nggak semua teman-temanku yang sudah bertahun-tahun pakai Visual Basic 6 tahu lho. Maklum, kami cuma membuat aplikasi CRUD saja, jarang membuat aplikasi lain. Dan selama ini memang belum ada kebutuhan kesana. Kecuali aku yang merasakan badan yang makin berat sehingga mager kalau disuruh update keliling rumah sakit.

Komponen File System Object

Komponen tersebut bernama file system object, dari namanya sudah ketahuan kalau komponen ini berguna untuk melakukan berbagai operasi file. Untuk mengakses komponen ini kamu harus menambahkan komponen "Microsoft Scripting Runtime" terlebih dahulu. Ikuti saja langkah-langkah berikut ini:

Tambahkan Reference ke project

Komponen ini tidak otomatis diload waktu kita membuat project, jadi kamu harus menambahkan secara manual, caranya adalah dengan memilih menu Project->Reference

 

menu reference

Setelah itu akan keluar dialog box reference. Scroll kebawah sampai kamu menemukan "Microsoft Scripting Runtime". List komponen di jendela ini urut by nama ya prend, jadi sabar saja nyecrollnya.

 

Microsoft Scripting Runtime

Saatnya Mencoba

Setelah komponennya berhasil ditambahkan, sekarang kamu bisa mencoba menggunakannya, contoh penggunaannya seperti ini:

 

 

Mudah bukan?

Berikut ini lebih detail tentang file system object:
Tabel A berisi properties yang ada di file system object

Properties/Parameter	Type	Deskripsi
FileSystemObject	Main object	Membuat, Delete, Hapus, Manipulasi dan mendapatkan informasi tentang drive, folder dan file
Drive	Object	Mendapatkan informasi tentang drive yang dipilih
Drives	Collection	Mendapatkan informasi/daftar tentang drive komputer
File	Object	Object untuk membuat file, hapus, menyalin dan memindah file, selain itu juga bisa mendapatkan property file seperti versi, path dan sebagainya
Files	Collection	Daftar file
Folder	Object	Object folder, untuk manipulasi seperti membuat, menghapus, menyalin atau memindah
Folders	Collection	Mendapatkan informasi/daftar folder
TextStream	Object	Untuk membaca dan membuat file text

Tabel B berisi method yang bisa dilakukan oleh file system obyek

Metode	Deskripsi	Contoh
CreateFolder	Membuat folder baru	fso.CreateFolder "C:\Files"
CreateTextFile	Membuat file baru	fso.CreateTextFile "C:\Files\file1.txt"
DeleteFolder	Hapus folder	fso.DeleteFolder "C:\Files"
DeleteFile	Hapus File	fso.DeleteFile "C:\Files.file.txt"
CopyFolder	Menyalin Folder sekaligus isinya	fso.CopyFolder "C:\Files", "C:\Files_Copy"
CopyFile	Menyalin file ke tempat lain	fso.CopyFile "C:\Files\file.txt", "C:\Files\file_copy.txt"
MoveFolder	Memindah folder ke tempat lain	fso.MoveFolder "C:\Files", "C:\Files Move"
MoveFile	Memindah file ke tempat lain	fso.MoveFile "C:\Files\file.txt", "C:\Files\file_move.txt"
GetDrive	Mendapatkan informasi tentang drive, misalnya pemakaian, sisa kapasitas dan lain sebagainya	fso.GetDrive("C") AvailableSpace
DriveExists	Menyecek apakah drive ada	If fso.DriveExists("D") Then     MsgBox "Drive D found" End If
GetFolder	Mendapatkan properties folder	fso.GetFolder(app.Path)
GetParentFolderName	Mendapatkan posisi file tersebut di folder apa (hasilnya string)	fso.GetParentFolderName(app.Path)
GetSpecialFolder	Mendapatkan informasi tentang folder special windows, yaitu salah satu dari 3 opsi: WindowsFolder (file system windows), SystemFolder (berisi driver, font dan sebagainya), or TemporaryFolder (temporary folder di windows)	fso.GetSpecialFolder(TemporaryFolder)
GetFile	Mendapatkan object file	.GetFile "C:\Files\file.txt"
FolderExists	Mengecek keberadaan folder	If fso.FolderExists("C:\Files") Then     MsgBox "Folder Exists!" End If
FileExists	Mengecek keberadaan file (hasilnya true dan false)	If fso.FileExists("C:\Files\file.txt") Then     MsgBox "File Exists!" End if

sumber: https://www.techrepublic.com/article/vb6-filesystemobject-makes-it-easier-to-work-with-files/