Anónimo
Unidad CD
Gracias por la respuesta sobre el ejecutable desde un botón, pero me podrías decir como chequear en que unidad (letra) esta ubicada la unidad de CD-DVD.
1 Respuesta
Respuesta de aja72
1
Te pongo una pequeña función que te devuelve las letras de los CD-ROM:
Const DRIVE_CDROM = 5
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
Public Function GetCDROMDrives() As String
Dim intTmp As Integer, tmpStr As String, strDrives As String
Dim strDriveLetters As String, ret As Long
GetCDROMDrives = ""
strDrives = Space(255)
ret = GetLogicalDriveStrings(Len(strDrives), strDrives)
For intTmp = 1 To ret Step 4
tmpStr = Mid(strDrives, intTmp, 3)
If GetDriveType(tmpStr) = DRIVE_CDROM Then
strDriveLetters = strDriveLetters & Left(tmpStr, 1)
End If
Next intTmp
GetCDROMDrives = UCase(strDriveLetters)
End Function
No olvides valorar la respuesta.
Const DRIVE_CDROM = 5
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
Public Function GetCDROMDrives() As String
Dim intTmp As Integer, tmpStr As String, strDrives As String
Dim strDriveLetters As String, ret As Long
GetCDROMDrives = ""
strDrives = Space(255)
ret = GetLogicalDriveStrings(Len(strDrives), strDrives)
For intTmp = 1 To ret Step 4
tmpStr = Mid(strDrives, intTmp, 3)
If GetDriveType(tmpStr) = DRIVE_CDROM Then
strDriveLetters = strDriveLetters & Left(tmpStr, 1)
End If
Next intTmp
GetCDROMDrives = UCase(strDriveLetters)
End Function
No olvides valorar la respuesta.