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

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

怎樣得到光驅的盤符

怎樣得到光驅的盤符

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

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

本類教程下載

系統下載排行

主站蜘蛛池模板: 国产在线拍揄自揄视频不卡99 | 精品国产综合区久久久久99 | 国产欧美久久久精品 | 日韩成人免费 | 亚洲欧美日韩国产一区二区精品 | 中文字幕不卡一区 二区三区 | 九九久久久2 | 亚洲欧美日韩中文综合在线不卡 | 99精品视频在线观看免费专区 | 操伊人| 国外xxxx做受视频 | 欧美日韩国产色综合一二三四 | 日本精品视频网站 | 2021国产成人精品久久 | 99re国产精品视频首页 | 欧美一级片毛片免费观看视频 | 中文字幕99在线精品视频免费看 | 成人久久久观看免费毛片 | 激情97| 欧美成人精品在线 | 亚洲第一男人天堂 | 欧美怡红院免费的全部视频 | 亚洲一区欧美日韩 | 国产精品欧美日韩一区二区 | 亚洲一区日韩 | 国产v综合v亚洲欧美 | 精品噜噜噜噜久久久久久久久 | 人人人干 | 日本伊人久久 | 国产黄色影院 | 国内精品久久影视 | 蜜桃视频极品免费观看 | 青青青国产观看免费视频 | 自拍偷拍3p | 人人干视频在线观看 | 午夜精品免费 | 一区二区在线视频观看 | 久久欧美久久综合 | 日本人五十路 | 精品国精品国产自在久国产不卡 | 最近日本免费观看视频 |