檢測磁盤類型的信息

作者：土人

磁盤類型的檢測是很有意義的。比如，安裝程序要懂得用戶所指定的磁盤是否為硬盤，不是則予以提示；又比如，要自動播放光盤中的音頻文件或影視文件，首先得判斷光驅的驅動器號才得以實現。那么，如何檢測磁盤的類型呢？
Windows的GetDriveType函數就是為獲取磁盤類型而準備的，利用它可以輕而易舉地得到我們所需的磁盤類型信息。以下以一個簡單的例子展示獲取壓縮盤以外的常規磁盤的類型這一有用的技術：

Option Explicit

'申明API函數
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

Private Sub Form_Load()

'聲明變量
Dim DrvNum As Single
Dim drvName As String
Dim DrvType As Integer
Dim i As Integer

Me.AutoRedraw = True
Drive1.Visible = False

'獲取所有常規磁盤信息——
DrvNum = Asc("a") - 1
For i = 0 To Drive1.ListCount
DrvNum = DrvNum + 1
drvName = Chr(DrvNum) + ":\"
DrvType = GetDriveType(drvName)
Select Case GetDriveType(drvName)
Case 0
Me.Print "不明 " + "盤符為： " + Trim(UCase(Chr(DrvNum)))
Case 2
Me.Print "軟驅 " + "盤符為： " + Trim(UCase(Chr(DrvNum)))
Case 3
Me.Print "硬盤 " + "盤符為： " + Trim(UCase(Chr(DrvNum)))
Case 4
Me.Print "網絡盤 " + "盤符為： " + Trim(UCase(Chr(DrvNum)))
Case 5
Me.Print "光驅 " + "盤符為： " + Trim(UCase(Chr(DrvNum)))
Case 6
Me.Print "RamDisk " + "盤符為： " + Trim(UCase(Chr(DrvNum)))
End Select
Next i

End Sub

原文轉自：http://www.anti-gravitydesign.com