日本国产亚洲-日本国产一区-日本国产一区二区三区-日本韩国欧美一区-日本韩国欧美在线-日本韩国欧美在线观看

當前位置:雨林木風下載站 > 技術開發教程 > 詳細頁面

怎樣得到光驅的盤符

怎樣得到光驅的盤符

更新時間:2022-05-09 文章作者:未知 信息來源:網絡 閱讀次數:

Option Explicit
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" _
    (ByVal nDrive As String) As Long
注釋:GetLogicalDriveStrings-->獲取一個字串,其中包含了當前所有邏輯驅動器的根驅動器路徑
Private Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" _
    (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long

Private Const DRIVE_REMOVABLE = 2
Private Const DRIVE_FIXED = 3
Private Const DRIVE_REMOTE = 4
Private Const DRIVE_CDROM = 5
Private Const DRIVE_RAMDISK = 6

Private Sub Command1_Click()
Dim rtn As String
Dim AllDrives As String
Dim JustOneDrive As String
AllDrives = Space$(64) 注釋:設置緩沖
rtn = GetLogicalDriveStrings(Len(AllDrives), AllDrives) 注釋:調用函數得到包含所有驅動器的字符串
AllDrives = Left(AllDrives, rtn)
Do
  rtn = InStr(AllDrives, Chr(0))
  If rtn Then 注釋:若有的話
     JustOneDrive = Left(AllDrives, rtn)
     AllDrives = Mid(AllDrives, rtn + 1, Len(AllDrives))
     rtn = GetDriveType(JustOneDrive) 注釋:檢查驅動器類型
     If rtn = DRIVE_CDROM Then 注釋:是CD-ROM
        Label1.Caption = Left(UCase(JustOneDrive), 2) 注釋:給label1
        Exit Do
     End If
  End If
Loop Until AllDrives = "" Or rtn = DRIVE_CDROM
Command1.Enabled = False
If Label1.Caption = "" Then
   Label1.Caption = "沒有發現光驅!"
End If
End Sub

溫馨提示:喜歡本站的話,請收藏一下本站!

本類教程下載

系統下載排行

主站蜘蛛池模板: 成人午夜爽爽爽免费视频 | 亚洲国产婷婷香蕉久久久久久 | 在线成人小视频 | 欧美人妖aa1片 | 波多野结衣视频在线免费观看 | 国产一区私人高清影院 | 亚洲欧美成aⅴ人在线观看 亚洲欧美国产精品 | 日韩欧美一及在线播放 | 成人小视频免费观看 | 人日人操 | 青青青青草 | 色综久久| 国产精品v欧美精品∨日韩 国产精品v欧美精品v日韩精品 | 久久天天躁夜夜躁狠狠躁2020 | 久久亚洲精品国产精品婷婷 | 日韩特级毛片免费观看视频 | dxj久久成国产精品 fc2ppv成年免费视频观看 | xxxx性日本 | 5g国产精品影院天天5g天天爽 | 在线观看国产小视频 | 国产在线观看青草视频 | 91精品免费国产高清在线 | 日韩欧美专区 | 中文字幕亚洲欧美日韩不卡 | 久久精品亚洲欧美日韩久久 | 色综合小说久久综合图片 | 亚洲欧美成人综合在线 | 欧美日韩一区二区三区四区在线观看 | 99精品偷拍在线视频观看 | 在线天堂中文在线资源网 | 一区二区视频 | 日本高清福利视频在线观看 | 日本三级在线 | 日日碰碰视频播放 | 天天拍夜夜添久久精品免费 | 亚洲国产人成中文幕一级二级 | 97国产在线播放 | 国产成人自拍在线 | 波多野结衣一区二区三区高清在线 | 在线观看国产日本 | 国产欧美在线观看视频 |