 Autor
|
Tema: App o Path (Leído 3,925 veces)
|
|
Bourne Ultimatum
|
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)
|
|
|
|
|
En línea
|
"El pertenecia a esa clase singular de hombres que la especie produce rara vez, en quienes el ansia de poder ilimitado es tan extremo que para conseguirlo cualquier sufrimiento parece natural" Ernesto CHE Guevara http://www.desdeabajorugby.com.ar |
|
|
byebye
 Desconectado
Mensajes: 5.093
|
pues los creas en otro directorio......
|
|
|
|
|
En línea
|
|
|
|
soplo
Ex-Staff
Desconectado
Mensajes: 3.592
Debian rool'z
|
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
|
|
|
|
|
En línea
|
Callar es asentir ¡No te dejes llevar!
|
|
|
|
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 saver como hacer para q el numero lo abra y guarde en por ej C:\rr\
|
|
|
|
|
En línea
|
"El pertenecia a esa clase singular de hombres que la especie produce rara vez, en quienes el ansia de poder ilimitado es tan extremo que para conseguirlo cualquier sufrimiento parece natural" Ernesto CHE Guevara http://www.desdeabajorugby.com.ar |
|
|
|
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
|
|
|
|
|
En línea
|
"El pertenecia a esa clase singular de hombres que la especie produce rara vez, en quienes el ansia de poder ilimitado es tan extremo que para conseguirlo cualquier sufrimiento parece natural" Ernesto CHE Guevara http://www.desdeabajorugby.com.ar |
|
|
soplo
Ex-Staff
Desconectado
Mensajes: 3.592
Debian rool'z
|
Pero hombre  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 |
|
|
|
|
En línea
|
Callar es asentir ¡No te dejes llevar!
|
|
|
|
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
|
|
|
|
|
En línea
|
"El pertenecia a esa clase singular de hombres que la especie produce rara vez, en quienes el ansia de poder ilimitado es tan extremo que para conseguirlo cualquier sufrimiento parece natural" Ernesto CHE Guevara http://www.desdeabajorugby.com.ar |
|
|
|
Bourne Ultimatum
|
sigo sin entender perdon  |
|
|
|
|
En línea
|
"El pertenecia a esa clase singular de hombres que la especie produce rara vez, en quienes el ansia de poder ilimitado es tan extremo que para conseguirlo cualquier sufrimiento parece natural" Ernesto CHE Guevara http://www.desdeabajorugby.com.ar |
|
|
byebye
Desconectado
Mensajes: 5.093
|
bourne que no entiendes? ponle la ruta al archivo hijo.
|
|
|
|
|
En línea
|
|
|
|
|
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
|
|
|
|
« Última modificación: 22 Junio 2005, 02:56 am por Bourne »
|
En línea
|
"El pertenecia a esa clase singular de hombres que la especie produce rara vez, en quienes el ansia de poder ilimitado es tan extremo que para conseguirlo cualquier sufrimiento parece natural" Ernesto CHE Guevara http://www.desdeabajorugby.com.ar |
|
|
|
| Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
|
Imposible copiar. Path not found D:
Programación Visual Basic
|
CAR3S?
|
5
|
4,561
|
24 Diciembre 2010, 12:34 pm
por CAR3S?
|
|
|
|
problema con app.path
Programación Visual Basic
|
maxtextla
|
9
|
4,160
|
5 Octubre 2011, 00:38 am
por 79137913
|
|
|
|
Path of exile
Juegos y Consolas
|
marc20
|
0
|
2,970
|
27 Septiembre 2013, 11:25 am
por marc20
|
|
|
|
PATH Windows 8
Windows
|
ItzMaGiiicK
|
7
|
3,348
|
12 Abril 2017, 18:03 pm
por Randomize
|
|
|
|
IIS Physical Path?
Hacking
|
cachuchin
|
0
|
2,025
|
12 Mayo 2020, 03:03 am
por cachuchin
|
 |
