Visual Basic - Trabajar con Archivos TXT(s )

Hola, deseo obtener ejemplos de como trabajar con archivos txt, abrirlos, cerrarlos, escribir sobre ellos, pasar datos de una BD a ellos, o pasar registros de un txt a BD, etc.
Desde ya Muchas Gracias.

Te paso algunos ejemplos de como utilizar el Scripting Object para escribir texto. Está la instrucción Print, pero me gusta más el Scripting. Para utilizarlo tenés que agregar en las referencias (menú proyecto\referencias) al Microsoft Scripting Runtime, Buscalo en la lista. Si no está utilizá el botón examinar y en System o System32 buscá scrrun.dll (viene con Internet explorer 5 o superior, es opcional en IE 4) se puede redistribuir sin problemas.

Option Explicit
DefLng A-Z

Private Sub cmdAbrir_Click()
On Error GoTo Salida
'Objeto scripting
Dim fso As Scripting.FileSystemObject, TxtStm As
Scripting.TextStream
Set fso = New FileSystemObject
'Abre el archivo de texto, si no existe lo crea
Set TxtStm = fso.OpenTextFile("C:\x.txt",
ForAppending, True)
'Guarda una cadena en el archivo
TxtStm.WriteLine "hola mundo"
Salida:
TxtStm.Close
Set TxtStm = Nothing
Set fso = Nothing
If Err.Number < 0 Then MsgBox Err.Description,
vbInformation, App.Title & " - Error de escritura"
End Sub

Private Sub cmdBorrarCrear_Click()
On Error GoTo Salida
'Objeto scripting
Dim fso As Scripting.FileSystemObject, TxtStm As
Scripting.TextStream
Set fso = New FileSystemObject
'Abre el archivo de texto, si existe lo borra
Set TxtStm = fso.CreateTextFile("C:\x.txt", True)
'Guarda una cadena en el archivo
TxtStm.WriteLine "hola mundo"
Salida:
TxtStm.Close
Set TxtStm = Nothing
Set fso = Nothing
If Err.Number < 0 Then MsgBox Err.Description,
vbInformation, App.Title & " - Error de escritura"
End Sub

Private Sub cmdLeer_Click()
'Objeto scripting
Dim fso As Scripting.FileSystemObject, TxtStm As
Scripting.TextStream
Set fso = New FileSystemObject
'Abre el archivo de texto, si no existe lo crea
Set TxtStm = fso.OpenTextFile("C:\x.txt",
ForReading, True)
'Lee el archivo desde la primera a la última línea
Do
Debug.Print TxtStm.ReadLine 'Imprime el
resultado en la ventana de depuración (CTRL +G, hay
que redimensionarla)
Loop Until (TxtStm.AtEndOfStream) 'AtEndOfStream
es el final del archivo
Salida:
TxtStm.Close
Set TxtStm = Nothing
Set fso = Nothing
If Err.Number < 0 Then MsgBox Err.Description,
vbInformation, App.Title & " - Error de lectura"
End Sub

Private Sub Command1_Click()
'Objeto scripting
Dim fso As Scripting.FileSystemObject, TxtStm As
Scripting.TextStream
Set fso = New FileSystemObject
'Abre el archivo de texto, si no existe lo crea
Set TxtStm = fso.OpenTextFile("C:\x.txt",
ForAppending, True)
'Variables necesarias c1 as string, c2 as string
With Data1.Recordset
If .RecordCount < 1 Then GoTo Salida ' Me
deschabé, provengo de la época del QBasic
'Llena el recordset
.MoveLast
.MoveFirst
Dim k As Long, c1 As String, c2 As String
Const Separador As String = " " 'Yo
prefiero separar con tabulaciones (vbTab=CHR$(9))
For k = 1 To .RecordCount
c1 = String(20, " ") 'cadena con 20
espacios
c2 = String(255, " ") 'cadena con 255
espacios
LSet c1 = .Fields("Nombre").Value 'Alinea
el texto a la izquierda
LSet c2 = .Fields("Ubicacion").Value
'Alinea el texto a la izquierda
'Guarda la cadena en el archivo
TxtStm.WriteLine c1 & Separador & c2
'Busca el siguiente registro
.MoveNext
Next k
End With
Salida:
TxtStm.Close
Set TxtStm = Nothing
Set fso = Nothing

End Sub

Espero que te sean útiles

Saludos Ruri

SIMPLEMENTE GARCIAS!