磁盤類型的檢測是很有意義的。比如，安裝程序要懂得用戶所指定的磁盤是否為硬盤，不是則予以提示；又比如，要自動播放光盤中的音頻文件或影視文件，首先得判斷光驅的驅動器號才得以實現。那麼，如何檢測磁盤的類型呢？
Windows的GetDriveType函數就是為獲取磁盤類型而准備的，利用它可以輕而易舉地得到我們所需的磁盤類型信息。以下以一個簡單的例子展示獲取壓縮盤以外的常規磁盤的類型這一有用的技術：
OptionExplicit
'申明API函數
PrivateDeclareFunctionGetDriveTypeLib"kernel32"Alias"GetDriveTypeA"(ByValnDriveAsString)AsLong
PrivateSubForm_Load()
'聲明變量
DimDrvNumAsSingle
DimdrvNameAsString
DimDrvTypeAsInteger
DimiAsInteger
Me.AutoRedraw=True
Drive1.Visible=False
'獲取所有常規磁盤信息——
DrvNum=Asc("a")-1
Fori=0ToDrive1.ListCount
DrvNum=DrvNum 1
drvName=Chr(DrvNum) ":"
DrvType=GetDriveType(drvName)
SelectCaseGetDriveType(drvName)
Case0
Me.Print"不明" "盤符為：" Trim(UCase(Chr(DrvNum)))
Case2
Me.Print"軟驅" "盤符為：" Trim(UCase(Chr(DrvNum)))
Case3
Me.Print"硬盤" "盤符為：" Trim(UCase(Chr(DrvNum)))
Case4
Me.Print"網絡盤" "盤符為：" Trim(UCase(Chr(DrvNum)))
Case5
Me.Print"光驅" "盤符為：" Trim(UCase(Chr(DrvNum)))
Case6
Me.Print"RamDisk" "盤符為：" Trim(UCase(Chr(DrvNum)))
EndSelect
Nexti
EndSub->
