Crear archivos de texto plano en VB 6.0
Buenas, quisiera saber como puedo crear archivos de texto *.txt plano en VB 6.0 y también como acceder a los mismos para escritura y así actualizarlos. Gracias.
1 respuesta
Respuesta de mrtin
1
Te aconsejo que agregues a las referencias la librería Microsoft Scripting Runtime que incorpora unos cuantos objetos hechos para lo que necesitas. Te hago un ejemplo:
Private oSys As Scripting.FileSystemObject
Private oText As Scripting.TextStream
'Si no existe el fichero lo creo.
If oSys.FileExists(rutafichero) = False Then
oSys.CreateTextFile (rutafichero)
End If
'Ahora oText tiene el fichero abierto con permisos de lectura.
Set oText = oSys.OpenTextFile(rutafichero, ForReading)
'En lugar de lo de arriba puedo cambiar el último parametro para modificarlo.
Set oText = oSys.OpenTextFile(rutafichero, ForWriting)
'y ahora por ejemplo si haces esto...
otext.writeline "esta cadena la estoy agregando al fichero"
'ya has grabado datos en el, falta cerrarlo.
Otext. Close
Dale un vistazo a esos objetos tienen todo lo que necesitas.
Private oSys As Scripting.FileSystemObject
Private oText As Scripting.TextStream
'Si no existe el fichero lo creo.
If oSys.FileExists(rutafichero) = False Then
oSys.CreateTextFile (rutafichero)
End If
'Ahora oText tiene el fichero abierto con permisos de lectura.
Set oText = oSys.OpenTextFile(rutafichero, ForReading)
'En lugar de lo de arriba puedo cambiar el último parametro para modificarlo.
Set oText = oSys.OpenTextFile(rutafichero, ForWriting)
'y ahora por ejemplo si haces esto...
otext.writeline "esta cadena la estoy agregando al fichero"
'ya has grabado datos en el, falta cerrarlo.
Otext. Close
Dale un vistazo a esos objetos tienen todo lo que necesitas.
