Ayuda novato

[turusele]

Nose porque no me aparece el post que puse ayer,no me acuerdo de los  usuarios que me estaban ayudando,ya he creado 4 forms,aver si estan bien:

Form principal:

Código [Seleccionar] Expandir

Private Sub S1_Click()
           
    Dim Ruta As String
   
    Select Case True
        Case Wcrpal: Ruta = App.Path & "/software/DCRPAL/wii-dcr_v2.1_PAL.dol,wii-dcr_v2.1_PAL.Elf"
        Case Wcrusa: Ruta = App.Path & "/software/DCRUSA/wii-dcr_v2.1_USA.dol,wii-dcr_v2.1_USA.Elf"
        Case Wcrjap: Ruta = App.Path & "/software/DCRJAP/wii-dcr_v2.1_JAP.dol,wii-dcr_v2.1_JAP.Elf"
    End Select

    MsgBox Ruta
 
    If Wcrpal = True Then

        Iwrc2.Show
        Iwrc.Hide
       
    ElseIf Wcrusa = True Then

        Iwrc3.Show
        Iwrc.Hide
       
    ElseIf Wcrjap = True Then

        Iwrc4.Show
        Iwrc.Hide

    End If
End Sub

Segundo form:

Código [Seleccionar] Expandir

Private Sub Iwrc2_Load()
    Iwrc.Hide
   
    If Iwrc.Wcrpal.Value = True Then
        Wcrpal.Visible = True
        Wcrusa.Visible = False
        Wcrjap.Visible = False
    ElseIf Iwrc.Wcrusa.Value = True Then
        Wcrpal.Visible = False
        Wcrusa.Visible = True
        Wcrjap.Visible = False
    Else
        Wcrpal.Visible = False
        Wcrusa.Visible = False
        Wcrjap.Visible = True
    End If
   
End Sub


Private Sub a1_Click()
 
  Iwrc2.Hide
  Iwrc.Show
 
End Sub

Private Sub Form_Load()

End Sub

Private Sub s2_Click()

Dim Ruta As String
   
    Select Case True
        Case aelf: Ruta = App.Path & "/software/DCRPAL/wii-dcr_v2.1_PAL.Elf"
        Case adol: Ruta = App.Path & "/software/DCRPAL/wii-dcr_v2.1_PAL.dol"
    End Select
   
    MsgBox Ruta
   
End Sub


tercer form:

Código [Seleccionar] Expandir

Private Sub Iwrc3_Load()
    Iwrc.Hide
   
    If Iwrc.Wcrpal.Value = True Then
        Wcrpal.Visible = True
        Wcrusa.Visible = False
        Wcrjap.Visible = False
    ElseIf Iwrc.Wcrusa.Value = True Then
        Wcrpal.Visible = False
        Wcrusa.Visible = True
        Wcrjap.Visible = False
    Else
        Wcrpal.Visible = False
        Wcrusa.Visible = False
        Wcrjap.Visible = True
    End If
   
End Sub

Private Sub a2_Click()

    Iwrc3.Hide
    Iwrc.Show
   
End Sub

Private Sub Form_Load()

End Sub

Private Sub s3_Click()

Dim Ruta As String
   
    Select Case True
        Case aelf2: Ruta = App.Path & "/software/DCRUSA/wii-dcr_v2.1_Usa.Elf"
        Case adol2: Ruta = App.Path & "/software/DCRUSA/wii-dcr_v2.1_Usa.dol"
    End Select
   
    MsgBox Ruta
   
End Sub



cuarto form:

Código [Seleccionar] Expandir

Private Sub Iwrc4_Load()
    Iwrc.Hide
   
    If Iwrc.Wcrpal.Value = True Then
        Wcrpal.Visible = True
        Wcrusa.Visible = False
        Wcrjap.Visible = False
    ElseIf Iwrc.Wcrusa.Value = True Then
        Wcrpal.Visible = False
        Wcrusa.Visible = True
        Wcrjap.Visible = False
    Else
        Wcrpal.Visible = False
        Wcrusa.Visible = False
        Wcrjap.Visible = True
    End If
   
End Sub

Private Sub a3_Click()

    Iwrc4.Hide
    Iwrc.Show
   
End Sub

Private Sub Form_Load()

End Sub

Private Sub s4_Click()

Dim Ruta As String
   
    Select Case True
        Case aelf3: Ruta = App.Path & "/software/DCRJAP/wii-dcr_v2.1_JAP.Elf"
        Case adol3: Ruta = App.Path & "/software/DCRJAP/wii-dcr_v2.1_JAP.dol"
    End Select
   
    MsgBox Ruta
   
End Sub



Ahora me falta el de escojer el directorio a instalar y que los copie al destino seleccionado,como se haria?¿?¿un saludo

[seba123neo]

Hola,si lo vi a tu post,no se porque te lo borraron,no tenia nada raro,pero bue no es cuestion mia.. :¬¬podes usar un control DirListBox para elegir la carpeta a instalar ,o podes hacerlo mediante api y abrir la ventana de "Seleccionar Carpeta" y que te retorne el path de la carpeta eelgida y despues la trabajas con una variable..

saludos.

[turusele]

ya he puesto un dirlistbox y un drivelistbox ya que esto se copia mas que nada a una tarjeta sd,no tengo ni idea de programar asique no e entendio lo que me as querido decir,nose xq me lo abran borrao si no puse nada raro,un saludo

[seba123neo]

entonces trata de leer algun manual de visual,hay millones en internet,porque son propiedades basicas de los controles y las tenes que saber,no soy malo,pero si venis con conocimientos previos sobre el tema es mejor ayudar,porque sino los post terminan con 50 mensajes...

saludos.

[turusele]

Vale ya tengo el dirlistbox y el drivelist box:

Código [Seleccionar] Expandir

End Sub

Private Sub Iwrc5_Load()
    Iwr2.Hide
   
    If Iwrc2.aelf.Value = True Then
        aelf.Visible = True
        adol.Visible = False
       
    ElseIf Iwrc2.adol.Value = True Then
        aelf.Visible = False
        adol.Visible = True
       
   
End If
   
End Sub


Private Sub Drive1_Change()

On Error GoTo MensajeError

   
    Dir1.Path = Drive1.Drive

Exit Sub

MensajeError:

    If Err.Number = 68 Then MsgBox "La unidad seleccionada no está disponible", vbInformation: Resume Next

End Sub

Private Sub s4_Click()
   
End Sub
haber si me podeis echar una mano que ya lo termino para que se copie en el directorio elegido con el dirlistbox y el drivelistboxel archivo elegido

[turusele]

vale ya he conseguido que se copien los archivos pero al copiarlos se me copian con nombre  VERDADERO o S4,como puedo hacer para que se copie con el nombre que yo quiera,quiero que se copien como boot.elf y boot.dol

Código [Seleccionar] Expandir

Private Sub s4_Click()
Dim ruta As String
Dim destino As String
    ruta = App.Path & "/software/DCRPAL/wii-dcr_v2.1_PAL.Elf"
    destino = Dir1.Path & s4.Name
FileCopy ruta, destino
  End Sub


[Yekka]

Chico explicate mejor que no entiendo nada de nada, no se supone que lo que quieres se hace modificando la variable "Destino" no entendi....

[turusele]

segun esta asi se me copia el archivo que quiero pero se me copia con el nombre s4 y qiuero que se me copie con el nombre boot.elf

[Littl3]

Código [Seleccionar] Expandir

Private Sub s4_Click()
Dim ruta As String
Dim destino As String
    ruta = App.Path & "/software/DCRPAL/wii-dcr_v2.1_PAL.Elf"
    destino = Dir1.Path & s4.Name
FileCopy ruta, destino
  End Sub


pues yo creo que donde tienes s4.name cambiarlo por el nombre k kieras .name no?

saludos

[turusele]

no me deja