Visual Basic - ¿Generar archivo en directorio aplicación?

Life is soft - evento anual de software empresarial
 
Vista:

¿Generar archivo en directorio aplicación?

Publicado por fer (1 intervención) el 29/03/2006 15:58:00
Hola a todos.

Soy un novato de VB, y me he encontrado con el siguiente problema:

Quiero guardar en un archivo los mejores tiempos de un juego estilo master mind, pero no quiero darle la ruta completa, porque quiero que esté referenciada al directorio donde se instale el programa. Es decir, no me sirve:

Open "C:\losmejores.txt" for append as #1

porque quiero que ese archivo se genere, de forma automática al acertar la combinación, en el directorio donde se instale el juego, o en un subdirectorio.

¿Sabe alguien cómo se puede hacer esto?

Gracias y saludos.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:¿Generar archivo en directorio aplicación?

Publicado por jose carlos (340 intervenciones) el 29/03/2006 16:39:43
usa APP.PATH
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:¿Generar archivo en directorio aplicación?

Publicado por EGV (385 intervenciones) el 29/03/2006 18:53:24
Open "C:\losmejores.txt" for append as #1
Open App.path & "\losmejores.txt" for append as #1
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:¿Generar archivo en directorio aplicación?

Publicado por Matías Freire (421 intervenciones) el 29/03/2006 21:59:00
Es correcto...
Pero no se olviden de una cosa... Si el usuario instala el programa en C:\, estarán en un problema, porque para ese caso App.Path devuelve el valor con la barra invertida. Por lo tanto "lo correcto" sería:

Dim sRutaAplicacion As String

If Len(App.Path) = 3 Then
sRutaAplicacion = App.Path & "\"
Else
sRutaAplicacion = App.Path
End If

Saludos!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:¿Generar archivo en directorio aplicación?

Publicado por Matías Freire (421 intervenciones) el 29/03/2006 22:00:16
Upppsssssssss.... con el apuro lo puse al reves... correción:

Dim sRutaAplicacion As String

If Len(App.Path) = 3 Then
sRutaAplicacion = App.Path
Else
sRutaAplicacion = App.Path & "\"
End If

Bye!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar