elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Únete al Grupo Steam elhacker.NET


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Problema con la lectura y escritura de un arxivo
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Problema con la lectura y escritura de un arxivo  (Leído 1,344 veces)
bautistasbr

Desconectado Desconectado

Mensajes: 268


Ver Perfil
Problema con la lectura y escritura de un arxivo
« 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


En línea

bautistasbr

Desconectado Desconectado

Mensajes: 268


Ver Perfil
Re: Problema con la lectura y escritura de un arxivo
« Respuesta #1 en: 30 Agosto 2006, 17:47 pm »

ya e arreglado el problema

gracias


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines