Visual Basic - problemas con archivos de texto

Life is soft - evento anual de software empresarial
 
Vista:

problemas con archivos de texto

Publicado por yago (7 intervenciones) el 09/06/2006 09:24:12
Hola a todos, he creado una aplicacion que me carga de un archivo.txt en varias cajas de texto. Creo el fichero pero mi problema es que cada vez que ejecuto el programa me crea un nuevo archivo.txt y pierdo lo que tenia guardado. Como puedo hacer para hacer que si el archivo.txt no existe que lo cree y si sí existe que haga lo demás.

voy a dejar el codigo para que lo veais:

PARA CREAR EL ARCHIVO Y VOLCAR EL CONTENIDO EL LOS TEXTBOX:

Private Sub Form_Load()

Dim F, A
Set F = CreateObject("Scripting.FileSystemObject")
Set A = F.CreateTextFile(App.Path + "\memo.txt", True)

canallibre = FreeFile
Open App.Path + "\archivo.txt" For Input As #canallibre
Line Input #canallibre, volcado1
Line Input #canallibre, volcado2
Line Input #canallibre, volcado3
Close #canallibre
'Close "c:\archivo.txt"
txtinterval.Text = volcado1
txtnuevo.Text = volcado2
txtnuevo2.Text = volcado3
End Sub

Tengo que hacerlo al cargar el formulario me lo exigen así. El problema también es que si el archivo.txt está vacio me da un error al volcar el contenido en los textbox. (Si podeis resolverme esa duda tambien)

VOLCAR LOS DATOS DE LOS TEXTBOX

Private Sub cmdaceptar_Click()

canallibre = FreeFile
'Abrimos el fichero en el canal dado
Open App.Path + "\memo.txt" For Output As #canallibre
'Escribimos el contenido del TextBox al fichero
Print #canallibre, configurar.txtinterval.Text
Print #canallibre, configurar.txtnuevo.Text
Print #canallibre, configurar.txtnuevo2.Text
Close #canallibre

End Sub

La variable canallibre la he declarado en un modulo.bas para que se reconozca en todo el programa

Public canallibre As Integer.

Bueno si alguien me puede ayudar.
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:problemas con archivos de texto

Publicado por Javi RM (187 intervenciones) el 09/06/2006 10:01:46
Sustituye "For Output" por "For Append" de este modo si el archivo no está creado lo creará y si ya existe añadirá el texto.
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:problemas con archivos de texto

Publicado por Nahuel (62 intervenciones) el 09/06/2006 11:09:19
O sino podes utilizar la funcion "Dir" para revisar si el archivo existe, y de esta forma, si existe hacer q pregunte si desea reemplazarlo o seguir utilizando el mismo.
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