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

Artikel terkait dengan kategori ini: