Mendeteksi USB Drive

Project ini digunakan untuk mendeteksi USB Drive, baik saat terpasang maupun tercabut. Berikut cara membuatnya :
Buat Project baru dengan 1 Form.
Tambahkan Kontrol ke Form1:
1 ListBox (ListBox1)
1 Timer (Timer1).
Ubah nilai properti dari Kontrol Timer1 :

Enabled = True
Inteval = 100

Tulis kode ini di event (Declarations) dari Form1 :

Dim Daftar As String

Function DriveList() As String
  Dim DI As IO.DriveInfo

  For Each DI In IO.DriveInfo.GetDrives
    If DI.DriveType = IO.DriveType.Removable And DI.IsReady Then
      DriveList &= DI.Name
    End If
  Next

  DriveList = Replace(DriveList, ":\", "")
End Function

Tulis kode ini di event Form1_Load :

Daftar = DriveList()

Tulis kode ini di event Timer1_Tick :

Dim s As String
Dim i As Integer

s = DriveList()

If Daftar <> s Then

  'pemasangan
  For i = 1 To Len(s)
    If InStr(Daftar, Mid(s, i, 1)) = 0 Then
      ListBox1.Items.Add("Drive " & Mid(s, i, 1) & ":/ terpasang")
    End If
  Next

  'pencabutan
  For i = 1 To Len(Daftar)
    If InStr(s, Mid(Daftar, i, 1)) = 0 Then
      ListBox1.Items.Add("Drive " & Mid(Daftar, i, 1) & ":/ telah dicabut")
    End If
  Next

  Daftar = s
End If

Jalankan Project, maka ketika USB Drive terpasang atau tercabut akan tampil informasi di ListBox1.

Dengan menggunakan kode yang hampir sama, Anda bisa menggunakannya untuk mendeteksi CD-Rom Drive. Yang perlu dilakukan adalah dengan menggantikan kode di event (Declarations) dari Form baris ke-5 yang ini :

If DI.DriveType = IO.DriveType.Removable And DI.IsReady Then
Dengan kode yang ini :
If DI.DriveType = IO.DriveType.CDRom And DI.IsReady Then