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

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

怎樣得到光驅的盤符

怎樣得到光驅的盤符

更新時間: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 | 综合在线视频精品专区 | 丁香网五月天 | 免费视频91 | 国产欧美日韩视频在线观看 | 男女深夜福利 | 毛片无遮挡高清免费观看 | 波多在线播放 | 2020久久精品亚洲热综合 | 午夜精品久久久久久99热 | 亚洲一区动漫卡通在线播放 | 成人亚州 | 成人久久久 | 91精品刘玥在线播放 | 性欧美大战久久久久久久久 | 日本a一级| 香蕉久久精品 | 久久久久久国产精品免费 | 人人插人人添 | 久久图库99图库 | 91国偷自产一区二区三区蜜臀 | 亚洲成人在线观看视频 | 91手机在线观看 | 在线观看日韩精品 | 日韩视频免费在线播放 | 另类欧美亚洲 | 免费观看一级欧美大 | 亚洲成a人片在线观看中文 亚洲成a人片在线观看中文!!! | 97久久天天综合色天天综合色hd | 天天五g天天爽 | 好好热视频 | 国产免费看 | 台湾一级毛片永久免费 | 欧美日韩成人 | 亚洲天码中文字幕第一页 | 美女乱子bbw | 韩日一区二区三区 | 国产区成人综合色在线 | 精品免费福利视频 | 国产青草视频免费观看97 | 快猫视频re06 |