Diskusi tentang Excel

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.

Related

UserForm 6592401843957266913

Post a Comment

Tulisan ini Bermanfaat..? Silakan berkomentar sesuai topik artikelnya, tidak dianjurkan menggunakan kata-kata yang dapat menimbulkan hal negatif. Mohon maaf apabila tidak memiliki etika akan Admin HAPUS tanpa pemberitahuan kembali. Terimakasih... salam Exceler

emo-but-icon

item