Widget HTML Atas

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
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
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/

No comments for "Cara Mudah Operasi File dengan Visual Basic 6"