Título: Problema con la lectura y escritura de un arxivo Publicado por: bautistasbr en 30 Agosto 2006, 16:07 pm Ola amigo,toy con un programa q usa unas opciones y tiene q guardarlas en un arxivo al cerrar el programa,y cargarlas al abrirlo.Lo que pasa q el arxivo lo guarda con un nombre q no es,y cuando abro el programa siempre me dice q el arxivo no existe.
Mi code es este Private Sub configuracion(fileName As String) On Error Resume Next Close App.Path & "\config.dat" & fileName Open App.Path & "\config.dat" & fileName For Output As #1 Print #1, "Color=" & config.Combo1.Text Close #1 MsgBox "Archivo Creado Correctamente" End Sub Private Sub Form_Load() On Error Resume Next Dim Respuesta As Integer Dim Script As Object Dim fnum As Integer Set Script = CreateObject("Scripting.filesystemobject") If Script.FileExists(App.Path + "\config.dat") = True Then Text1.Text = "" On Error GoTo Ninguno fnum = FreeFile Open App.Path & "\config.dat" For Input As fnum Do While Not EOF(fnum) Line Input #fnum, txt Text1.Text = Text1.Text & vbCrLf & txt Loop Close fnum Ninguno: Else Respuesta = MsgBox("El archivo config.dat no existe,¿Desea que el programa lo cree?", vbYesNo, "Error") If Respuesta = vbYes Then Call configuracion("config.dat") Else End If End If end sub Título: Re: Problema con la lectura y escritura de un arxivo Publicado por: bautistasbr en 30 Agosto 2006, 17:47 pm ya e arreglado el problema
gracias |