vb判斷是否有移動硬盤

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

Private Sub Combo1_Click()

Dim x As Long

Dim buff As String

buff = Combo1.Text + ":\"

x = GetDriveType(buff)

Select Case x

Case 2

Label1.Caption = "該驅動器是可移動驅動器"

Case 3

Label1.Caption = "該驅動器是固定驅動器"

Case 4

Label1.Caption = "該驅動器是網絡驅動器"

Case 5

Label1.Caption = "該驅動器是CD-ROM驅動器"

Case 6

Label1.Caption = "該驅動器是RAMDISK驅動器"

Case Else

Label1.Caption = "該驅動器無效"

End Select

End Sub

'定時檢測驅動器就可識別

上一篇:宜城壹中錄取分數線2022

下一篇:如何通過JLINK燒寫STM32程序