Imprimir Página - entrar al CD-ROM

Programación => Programación Visual Basic => Mensaje iniciado por: jocker en 4 Junio 2006, 05:13 am

Título: entrar al CD-ROM
Publicado por: jocker en 4 Junio 2006, 05:13 am

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

Título: Re: entrar al CD-ROM
Publicado por: Red Mx en 4 Junio 2006, 05:18 am

explica un poco mejor

Título: Re: entrar al CD-ROM
Publicado por: jocker en 4 Junio 2006, 06:32 am

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?

Título: Re: entrar al CD-ROM
Publicado por: bautistasbr en 4 Junio 2006, 07:58 am

use el control drivelistbox

Título: Re: entrar al CD-ROM
Publicado por: NYlOn en 5 Junio 2006, 23:09 pm

Usa la API Private Declare Function GetDriveType Lib "kernel32.dll" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

Título: Re: entrar al CD-ROM
Publicado por: _Sergi_ en 5 Junio 2006, 23:33 pm

1. Usa GetDriveType para comprobar si la unidad que sea es CD, HD etc....

Código:

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

Código:

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!

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: jocker en 4 Junio 2006, 05:13 am