Test Foro de elhacker.net SMF 2.1

Programación => .NET (C#, VB.NET, ASP) => Programación General => Programación Visual Basic => Mensaje iniciado por: fatiga89 en 30 Septiembre 2014, 18:45 PM

Título: Necesito de su ayuda
Publicado por: fatiga89 en 30 Septiembre 2014, 18:45 PM
Buen día a todos y desde ya agradezco su aporte. Mi problema es el siguiente, estoy haciendo un programa para el trabajo en el cual por medio de botones ejecute distintas aplicaciones, hasta ahí todo bien, el problema esta en que esto lo quiero poder grabar en un dvd o pasar pon pendrive para que se pueda utilizar en mi trabajo. Y como no todas las lectoras o pendrive se les asigna la misma unidad no se como hacer para identificarla y así poder llamar a las aplicaciones :huh:. Acá les dejo un ejemplo para que me entiendan.

Shell("Unidad(que ir variando):\programas\aplicacion.exe")

Desde ya gracias. ;D
Título: Re: Necesito de su ayuda
Publicado por: XresH en 30 Septiembre 2014, 20:39 PM
Holas,
Podes leerte este hilo, esa informacion podes aplicarla a tu software y no vas a tener inconvenientes.



http://www.recursosvisualbasic.com.ar/htm/listado-api/api-29.htm


En el ejemplo fijate en este code:

Código (vb) [Seleccionar]
' Función Api GetDriveType para obtener el tipo y clase de unidad 
Private Declare Function GetDriveType _ 
    Lib "kernel32" _ 
    Alias "GetDriveTypeA" ( _ 
    ByVal nDrive As String) As Long 
 
Private Sub Command1_Click() 
' Llamamos a la función pasandole la unidad que queremos obtener la información 
Select Case GetDriveType(Trim(Text1)) 
        Case 2 
            ' Unidad de tipo removible, por ejemplo la unidad A: 
            MsgBox "Unidad removible" 
        Case 3 
            ' Por ejemplo un disco duro 
            MsgBox "Unidad Fija" 
        Case Is = 4 
            ' Una unidad de red 
            MsgBox "Unidad remota" 
        Case Is = 5 
            'Unidad de Cd - Dvd 
            MsgBox "Unidad de Cd-Rom" 
        Case Is = 6 
            ' Para una unidad de dsico Virtual 
            MsgBox "Unidad virtual" 
        Case Else 
            'Cuando es desconocida 
            MsgBox "Unidad no reconocida" 
    End Select 
End Sub


De seguro es el inidicado, pero ahi vos ves que te sirve mas usar.


Saludos.
Título: Re: Necesito de su ayuda
Publicado por: fatiga89 en 1 Octubre 2014, 02:10 AM
Muchísimas gracias, ahora lo aplicare y veré como me sale  ;D