Jumpa Lagi semuanya…

Kali ini saya akan memberikan tutorial sebuah program yang mampu mengecek keberadaan flashdisk yang terpasang di komputer anda.

Aplikasi yang kita gunakan untuk tutor ini adalah Visual Basic 6.0. Kita akan melakukan pengecekan terhadap flashdisk atau removable drive ini dengan menggunakan fungsi API “GetDriveTypeA” dari library kernel32.dll.

Langsung saja ke tutornya…

1. Buat sebuah project baru di VB 6.0 dan masukkan sebuah kontrol DriveListBox dan sebuah kontrol Command Button pada form dengan properties sebagai berikut:

Gambar 1. Contoh Peletakan Kontrol Pada Form

2.Buka jendela code dengan cara klik kanan pada form -> klik View Code dan ketikkan kode berikut:

——– Start Copy Here ———

‘ Deklarasi

Private Declare Function GetDriveType& Lib “Kernel32″ Alias “GetDriveTypeA” (ByVal nDrive As String)

Private Sub Command1_Click()
Dim i As Integer
For i = 0 To Drive1.ListCount – 1
If GetDriveType(Drive1.List(i)) = 2 And Left(Drive1.List(i), 1) <> “a” Then
MsgBox “Ada Flashdisk, yaitu ” & Drive1.List(i)
        Exit For
End If
Next
End Sub

———- Until Here ———–

Gambar 2. Kode Yang Diketikan Pada Jendela Kode

3. Run project anda lalu klik tombol cek pada aplikasi yang telah anda buat, maka aplikasi akan mencari keberadaan flashdisk di komputer anda dan memberi informasi dengan message box apabila flashdisk ditemukan pada komputer anda.

Gambar 3. Flashdisk ditemukan pada drive K:

Demikian tutor kita kali ini. Hanya ini saja yang dapat saya sampaikan. Semoga dapat membantu dalam proses belajar anda. Sekian dan terima kasih.

File project beserta source codenya dapat anda download di sini.