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

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

怎樣得到光驅的盤符

怎樣得到光驅的盤符

更新時間: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

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

本類教程下載

系統下載排行

主站蜘蛛池模板: 精品久久久久久中文字幕一区 | 日本高清无吗免费播放 | 免费看欧美日韩一区二区三区 | 天天操操 | 欧美国产综合视频 | 操欧美老逼 | 波多野结衣视频免费看 | 日韩激情中文字幕一区二区 | 成人羞羞视频播放网站 | 欧美成人精品第一区首页 | 亚洲欧美视频在线 | 日本精品一区二区三区在线观看 | 舌头伸进去添的我好爽视频 | 波多野结衣一区二区三区高清在线 | 精品一区二区三区3d动漫 | 亚洲国产欧美在线人成aaa | 97青草最新免费精品视频 | 亚洲国产精久久久久久久 | 日本高清在线播放免费视频 | 亚洲综合色播 | 一区二区三区美女视频 | 亚洲操图 | 好色tv黄色在线看 | 在线视频播放网站 | 日韩免费大片 | 99久久免费国产精品热 | 日韩久久一级毛片 | 极品丝袜高跟91白沙发在线 | 成年人在线观看视频免费 | 欧美日本一区二区三区 | 偷拍spa成人按摩福利 | 国产成人在线网站 | 日韩在线色| 国产精品二区高清在线 | 亚洲乱码国产一区网址 | 日本不卡一区二区三区四区 | 日本zzzwww | 日韩经典一区 | 欧美不卡激情三级在线观看 | 久一在线| 欧美日韩亚洲精品一区二区 |