tengo un programa en vb6 el cual guarda unos .dat en la carpeta donde se ejecuta la aplicacion
quiero saber alguna forma para q esos .dat me los guarde en
otra carpeta q no sea esa
Gracias a todos
8)
pues los creas en otro directorio......
Hola
Pues se me ocurren mil formas
Por ejemplo combinando un control dir y un drive o bien utilizando un dialog puedes crear un formulario donde se pueda elegir una ubicación.
Luego guardas esa ubicación en alguna parte (un fichero, en el registro, etc)
Cuando la aplicación se inicia mira ese valor. Si existe lo lee e intenta abrir en la ubicación indicada el archivo adecuado.
Si no puede leerlo o bien no hay ubicación que te saque el formulario para indicar la ubicación.
Un saludo
no me explique bien
el programa me guarda y le archivos de datos
el codigo para guardar es algo asi;
codigo;
Private Sub cmdguardar_Click()
Dim numero As String
numero = Ficha
On Error GoTo Fallo
Open numero For Input As #5
MsgBox "La ficha ya existe."
quiero saber como hacer para q el numero lo abra y guarde en por ej C:\rr\
Soplo me interesa lo q decis
yo habia pensado
poner la ruta en el registro de win
y q el programa lo lea de ahi
se como hacer lo del registro
se como hacer para q lea la variable de registro
pero nose como hacer para q comprenda q esa es la ruta a guardar
Pero hombre
:D
Pues en vez de hacer
open archivo for output as 1
Y suponiendo que tienes el trayecto en una variable Trayec
archivo = trayec & "\" & archivo
open archivo for output as 1
Y ya está
Un saludo
:D
el codigo es asi;
codigo;
Private Sub cmdguardar_Click()
Dim numero As String
numero = Ficha
On Error GoTo Fallo
Open numero For Input As #5
MsgBox "La ficha ya existe."
modificar.Show
Me.Hide
Close #5
Exit Sub
Fallo: MsgBox "La ficha se guardo exitosamente."
dato1 = Text1
Open numero For Binary As #1
Put #1, 1, dato1
Close #1
End Sub
Me quedaria asi? ;
codigo;
Private Sub cmdguardar_Click()
Dim ruta As App
Dim numero As String
numero = Ficha
On Error GoTo Fallo
numero = ruta & "c:\" & numero
Open numero For Input As #5
sigo sin entender
perdon :P
bourne que no entiendes? ponle la ruta al archivo hijo.
code;
Private Sub cmdguardar_Click()
Dim ruta As App
Dim numero As String
numero = Ficha
On Error GoTo Fallo
numero = ruta & "c:\" & numero
Open numero For Input As #5
MsgBox "La ficha ya existe."
modificar.Show
Me.Hide
Close #5
Exit Sub
Fallo: MsgBox "La ficha se guardo exitosamente."
dato1 = Text1
Open numero For Binary As #1
Put #1, 1, dato1
Close #1
End Sub
code;
Me queda asi pero no funciona
alguien sabe como hacerlo?
llegue hasta ahi pero nose como seguir
mete el codigo entre las etiquetas code.
Listo lo logre!!!!
__________________________________
Private Sub cmdguardar_Click()
Dim numero As String
Dim tt As String
tt = Text52.Text 'aca coloco la ruta q quiera
numero = tt & Ficha
On Error GoTo Fallo
Open numero For Input As #5
MsgBox "La ficha ya existe."___________________________________
Gracias a Los q me ayudaron la verdad q fue de gran utilidad este foro ;)