Search This Blog

Drives Properties

Cara mengetahui drives yang ada pada komputer kita menggunakan Microsoft Access dapat dilakukan dengan cara menggunakan Drives properties.

Syntax atau penulisan drives properties adalah:

object.Drives

object adalah selalu sebuah FileSystemObject

Catatan

Removable-media misalnya Flash disk atau harddisk external harus dipasang agar muncul sebagai drives.

Anda dapat mengumpulkan data drives yang ada pada komputer menggunakan For Each .. Next seperti pada ilustrasi kode berikut:

Sub ShowDriveList
Dim fs, d, dc, s, n
Set fs = CreateObject("Scripting.FileSystemObject")
Set dc = fs.Drives
For Each d in dc
s = s & d.DriveLetter & " - "
If d.DriveType = 3 Then
n = d.ShareName
Else
n = d.VolumeName
End If
s = s & n & vbCrLf
Next
MsgBox s
End Sub

No comments: