|
在程序打包移植的時候，需要用到 光盤/U盤 。在不知道機子上的光盤的盤符是多少，或不知道盤符的類別和盤符的總數的話。
......... 可以用如下方法來判斷 .........
要用到的 API 描述:
返回機子上的所有盤符
GetLogicalDriveStrings
VB聲明
Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
說明
獲取一個字串，其中包含了當前所有邏輯驅動器的根驅動器路徑
返回值
Long，裝載到lpBuffer的字符數量（排除空中止字符）。如緩沖區的長度不夠，不能容下路徑，則返回值就變成要求的緩沖區大小。零表示失敗。會設置GetLastError
參數表
參數 類型及說明
nBufferLength Long，lpBuffer字串的長度
lpBuffer String，用于裝載邏輯驅動器名稱的字串。每個名字都用一個NULL字符分隔，在最后一個名字后面用兩個NULL表示中止（空中止）
不同的盤類型可以用 GetDriveType 來判斷.
GetDriveType
VB聲明
Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
說明
判斷一個磁盤驅動器的類型
返回值
Long，如驅動器不能識別，則返回零。如指定的目錄不存在，則返回1。如執行成功，則用下述任何一個常數指定驅動器類型：DRIVE_REMOVABLE， DRIVE_FIXED， DRIVE_REMOTE， DRIVE_CDROM 或 DRIVE_RAMDISK
參數表
參數 類型及說明
nDrive String，包含了驅動器根目錄路徑的一個字串
如下用打開光盤指定的里的文件做例子:
Private Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Private Sub Form_Click()
Dim StrDrive As String '盤符串(A:\ C:\ D:\...)
Dim DriveID As String '盤符(如:A:\)
StrDrive = String(100, Chr$(0)) '初始化盤符串
Call GetLogicalDriveStrings(100, StrDrive) '返回盤符串
Dim i As Integer
'返回光盤盤符到數組
For i = 1 To 100 Step 4 '注意這里是4
DriveID = Mid(StrDrive, i, 3) '枚舉盤符
If DriveID = Chr$(0) & Chr(0) & Chr(0) Then Exit For '沒有盤符,即時退出循環
If GetDriveType(DriveID) = 5 Then Call ShellPro(DriveID)
'如果枚舉到的盤是CD-ROM,轉到 ShellPro 子程序
Next i
End Sub
'子程序:::::打開文件
Sub ShellPro(DrivePro As String)
On Error GoTo Err_File:
If Not IsEmptyCDROM(DrivePro) Then
Shell (DrivePro & "Hello.exe") '打開文件路徑
Unload Me
End '并結束本程序
Else
Debug.Print "CD-ROM is Empty"
End If
Err_File:
If Err.Description = "錯語的文件名或號碼" Then Exit Sub
End Sub
Function IsEmptyCDROM(sDrive As String)
Dim s
On Error GoTo ErrHandle
s = Dir(sDrive + "*.*")
IsEmptyCDROM = False
Exit Function
ErrHandle:
IsEmptyCDROM = True
End Function
|
