Kamis, 21 Oktober 2010

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:\")

Label: , , ,

0 Komentar:

Posting Komentar

Pengunjung yang baik selalu meninggalkan jejak berupa komentar. :)

Berlangganan Posting Komentar [Atom]

<< Beranda