Mengetahui Tipe Drive

Fungsi berikut ini digunakan untuk mengetahui tipe suatu drive, apakah harddisk, cd-rom atau yang lain. Buat sebuah Module baru dan ketikkan :

Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Integer

Public Function DriveType(ByVal Letter As String) As String
Select Case GetDriveType(Letter)
Case 2: DriveType = "Removable" 'floppy, flashdrive, sd card
Case 3: DriveType = "Fixed" 'harddisk
Case 4: DriveType = "Remote"
Case 5: DriveType = "CD-Rom"
Case 6: DriveType = "RAM Disk"
Case Else: DriveType = "Unknown"
End Select
End Function

Misalkan kita ingin mengetahui drive C, tinggal ketikkan saja :

s = DriveType("C:\")