Foro de elhacker.net

tengo un programa en vb6 el cual guarda unos .dat en la carpeta donde se ejecuta la aplicacion
quiero saver 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 saver 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

Y suponiendo que tienes el trayecto en una variable Trayec

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!!!!
__________________________________
___________________________________
Gracias a Los q me ayudaron la verdad q fue de gran utilidad este foro ;)