quisiera saber si a travez de un boton puedo explorar el cd rom, sea la letra que sea aunque sea la "Z"...?
gracias
:-X :-X :-X :-X :-X :-X :-X :-X :-X :-X :-X :-X
explica un poco mejor
quiero que mi boton "explore mi CD-ROM" eso solo. lo que pasa es que mi cd-rom tiene la letra "G" pero en caso de que sea otra letra este boton, tiene que explorar sea la unidad de cd-rom que sea... me explico?
use el control drivelistbox
Usa la API Private Declare Function GetDriveType Lib "kernel32.dll" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
1. Usa GetDriveType para comprobar si la unidad que sea es CD, HD etc....
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Private Sub Form_Load()
Select Case GetDriveType("E:\")
Case 2
Me.Print "Extraíble"
Case 3
Me.Print "Disco Duro"
Case Is = 4
Me.Print "Unidad de Red"
Case Is = 5
Me.Print "Cd-Rom"
Case Is = 6
Me.Print "Ram disk"
Case Else
Me.Print "No Reconocido"
End Select
End Sub
En tu caso, que buscas CD-Rom tendrías que esperar que la función te devuelva el entero "5"
2. Una vez hayas dado con la unidad de CD utiliza ShellExecute para explorar el contenido
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1
Private Sub Form_Load()
ShellExecute Me.hwnd, vbNullString, "http://www.google.es", "open", "C:\", SW_SHOWNORMAL
End Sub
Como ves en el code, tienes que pasarle a la función un parámetro (lpOperation). En el ejemplo pone "open", tu, como quieres explorar, tendrías que poner "explore".
Un saludo!