Mensajes

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

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