√ 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 dapat 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 dipakai 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 kemudian yang terakhir tambahkan juga objek listbox yang nantinya dijadikan sebagai tampilan dari list drive. Untuk citra jelasnya silakan lihat desain gambar berikut ini

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

Saatnya kini untuk menciptakan 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 mekanisme diatas dibentuk langkah berikutnya kita akan memanggil mekanisme diatas melalui objek CommandButton yang dalam hal ini yaitu tombol "Tampilkan" maka mekanisme yang harus dilakukan yaitu 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 kini kita jalankan dengan menekan tombol RUN pada icon RUN maka akan muncul form untuk menampilkan drive kemudian kita coba klik tombol "Tampilkan" maka akhirnya list dibawah tombol akan menampilkan seluruh drive yang ada pada komputer Anda.

Hasilnya akan terlihat menyerupai berikut ini

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

Selamat mencoba, biar bermanfaat.
Sumber http://www.excel-id.com/