Menampilkan Drive Aktif di Komputer dengan VBA

Sahabat Excel, terimakasih masih telah membaca artikel ini, pada kesempatan kali ini saya akan membahas bagaimana coding atau perintah untuk menampilkan seluruh drive yang ada pada komputer Anda. Lalu apa fungsinya Anda bisa menampilkan drive dan mengetahui berapa drive yang ada pada komputer Anda. Silakan baca

Cara Mengetahui Lokasi File

Untuk menampilkan drive yang aktif pada komputer Anda ada beberapa koding yang harus dituliskan dan berikut yang harus disiapkan.

Pertama silakan buat 1 buah userform yang nantinya digunakan sebagai objek interaktif antara user dengan komputer kemudian tambahkan pula 1 buah tombol untuk perintah menampilkan seluruh drive dalam hal ini Anda harus menambahkan CommandButton pada toolbok lalu yang terakhir tambahkan juga objek listbox yang nantinya dijadikan sebagai tampilan dari list drive. Untuk gambaran jelasnya silakan lihat desain gambar berikut ini

Anda bisa mengganti caption CommandButton1 menjadi "Tampilkan" untuk menggantinya silakan lakukan pada properties

Saatnya sekarang untuk membuat coding, langkah pertama silakan masuk ke VBA editor kemudian tampilkan mode code dan buat sub sebagai berikut

Private Declare Function GetLogicalDriveStrings Lib "kernel32" _
Alias "GetLogicalDriveStringsA" _
(ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long

Private Function GetDriveStrings() As String
Dim result As Long
Dim strDrives As String
Dim lenStrDrives As Long

result = GetLogicalDriveStrings(0, strDrives)

strDrives = String(result, 0)
lenStrDrives = result

result = GetLogicalDriveStrings(lenStrDrives, strDrives)

If result = 0 Then

GetDriveStrings = ""
Else
GetDriveStrings = strDrives
End If
End Function

Jika sudah dituliskan langjutkan menulis coding berikut ini dibawahnya

Private Sub Tampilkan(drives As String)
'Materi menampilkan drive
Dim Munculkan As Long
Dim drive As String

ListBox1.Clear
Munculkan = 1

Do While Not Mid$(drives, Munculkan, 1) = Chr(0)
drive = Mid$(drives, Munculkan, 3)
Munculkan = Munculkan + 4
ListBox1.AddItem UCase(drive)
Loop
End Sub

Setelah prosedur diatas dibuat langkah berikutnya kita akan memanggil prosedur diatas melalui objek CommandButton yang dalam hal ini adalah tombol "Tampilkan" maka prosedur yang harus dilakukan adalah Clik. Silakan tuliskan coding berikut ini

Private Sub CommandButton1_Click()
Dim Drivenya As String

' Cari drive pada komputer
Drivenya = GetDriveStrings()

If Drivenya = "" Then
' Jika drive tidak ditemukan
MsgBox "Drive tidak ada!", vbCritical
Else

Tampilkan Drivenya
End If
End Sub

Untuk menjalankan perintah-perintah yang telah dituliskan diatas sekarang kita jalankan dengan menekan tombol RUN pada icon RUN maka akan muncul form untuk menampilkan drive kemudian kita coba klik tombol "Tampilkan" maka hasilnya list dibawah tombol akan menampilkan seluruh drive yang ada pada komputer Anda.

Hasilnya akan terlihat seperti berikut ini

Yes, berhasil silakan lihat pada gambar diatas terlihat susunan atau urutan drive dari C:\ sampai dengan J:\ dan hasil ini jika diterapkan pada komputer Anda akan berbeda tergantung berapa jumlah drive atau partisi nya.

Selamat mencoba, semoga bermanfaat.

Tweet