App o Path

[Bourne Ultimatum]

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)

[byebye]

pues los creas en otro directorio......

[soplo]

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

[Bourne Ultimatum]

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\

[Bourne Ultimatum]

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

[soplo]

Pero hombre


Pues en vez de hacer

Código [Seleccionar] Expandir

open archivo for output as 1

Y suponiendo que tienes el trayecto en una variable Trayec

Código [Seleccionar] Expandir

archivo = trayec & "\" & archivo
open archivo for output as 1

Y ya está

Un saludo

[Bourne Ultimatum]

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

[Bourne Ultimatum]

sigo sin entender
perdon

[byebye]

bourne que no entiendes? ponle la ruta al archivo hijo.

[Bourne Ultimatum]

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