 Autor
|
Tema: Ayuda novato (Leído 3,853 veces)
|
turusele
 Desconectado
Mensajes: 12
|
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: 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: 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: 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: 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
|
|
|
|
|
En línea
|
|
|
|
|
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.
|
|
|
|
|
En línea
|
|
|
|
turusele
Desconectado
Mensajes: 12
|
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
|
|
|
|
|
En línea
|
|
|
|
|
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.
|
|
|
|
|
En línea
|
|
|
|
turusele
Desconectado
Mensajes: 12
|
Vale ya tengo el dirlistbox y el drivelist box: 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 |
|
|
|
« Última modificación: 10 Mayo 2008, 18:01 pm por turusele »
|
En línea
|
|
|
|
turusele
Desconectado
Mensajes: 12
|
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 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
|
|
|
|
|
En línea
|
|
|
|
Yekka
Desconectado
Mensajes: 62
|
Chico explicate mejor que no entiendo nada de nada, no se supone que lo que quieres se hace modificando la variable "Destino" no entendi....
|
|
|
|
|
En línea
|
|
|
|
turusele
Desconectado
Mensajes: 12
|
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
|
|
|
|
|
En línea
|
|
|
|
Littl3
Desconectado
Mensajes: 239
Tarde o temprano aparece el hombre
|
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
|
|
|
|
|
En línea
|
|
|
|
turusele
Desconectado
Mensajes: 12
|
no me deja  |
|
|
|
|
En línea
|
|
|
|
|
 |
