Seleziona il primo cd-rom
''Get first cd drive
Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (nDrive As String) As Long
Function GetFirstCD() As String
DefLng DRIVE_CDROM = 5
DefLng DRIVE_FIXED = 3
DefLng DRIVE_RAMDISK = 6
DefLng DRIVE_REMOTE = 4
DefLng DRIVE_REMOVABLE = 2
DefLng DRIVE_UNKNOWN = 0
DefLng i
DefStr drvLtr
' initialize
Result = ""
' process
For i = Asc("A") To Asc("Z")
drvLtr = Chr$(i) + ":"
If GetDriveType(@drvLtr) = DRIVE_CDROM Then
Result = drvLtr + "\"
Exit For
End If
Next
End Function
showMessage "The first CD Drive is: " + GetFirstCD()
|