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

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

怎樣得到光驅的盤符

怎樣得到光驅的盤符

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

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

本類教程下載

系統下載排行

主站蜘蛛池模板: 中国又粗又大又爽的毛片 | 有色视频在线观看免费高清 | 精品国产亚洲一区二区三区 | 日韩国产成人精品视频 | 久久综合狠狠综合久久综合88 | 天天舔天天干天天操 | 国产欧美日韩综合精品无毒 | 日韩成人免费aa在线看 | 啪啪综合网 | 轻轻操在线视频 | 4484在线观看视频 | 午夜激情视频在线 | 免费高清一级欧美片在线观看 | 欧美日韩国产精品综合 | 久久国产精品二区99 | 美国一级毛片片aa久久综合 | 国产精品亚洲欧美日韩一区在线 | 男人天堂1024 | 曰韩一级毛片 | 免费人成在线观看网站 | 国色天香精品亚洲精品 | 精品国产福利在线观看网址2022 | 高清国产在线播放成人 | 国模大尺度福利视频在线 | 国产成人亚洲精品一区二区在线看 | 清纯唯美亚洲综合日韩第 | 水蜜桃在线观看视频 | 最新lutube亚洲看片在线观看 | 国产亚洲人成网站在线观看 | 伊人久久在线视频 | 欧美亚洲国产精品久久 | 日本高清2019免费视频 | 成年人在线播放 | 欧美日韩国产综合在线小说 | 久久99在线 | 亚洲国产精品久久综合 | 日本久久综合视频 | 欧美的高清视频在线观看 | 久久久久久免费一区二区三区 | 成人免费观看网欧美片 | 日韩伦 |