Generar archivo plano

[Hokin]

Holas. Como hago para generar un archivo plano en el disco duro con cualquier terminacion. ejemplo: dat, txt, o como lo quiera llamar con datos que tengo almacenados en un base de datos access.

Gracias

[The_Pretorian]

Buenas Tardes:
Puedes probar este codigo, esperot e sirva... se enlaza a una BD en Acces y me generea un TXT, claro q en tu caso le puedes poner la extencion que crees conveniente.
Atte
Jorge Diaz

Dim Rs_Expo As New ADODB.Recordset
Dim CadSql, StrArchivo, nameFile As String
Dim File As FileSystemObject
Dim Line As TextStream
Dim nConta As Long, nPos As Long
Dim nDocu As String, nTabla As String, nSerie As String
nameFile = "archivo_generado.TXT"
StrArchivo = App.Path & "\File\" & nameFile
CadSql = "SELECT NroRuc, RazSoc, MonImp FROM selClientes"
Rs_Expo.Open CadSql, Cn, adOpenKeyset, adLockOptimistic
If Not Rs_Expo.EOF Then
Set File = New FileSystemObject
Set Line = File.CreateTextFile(StrArchivo, True)
End If
If Not Rs_Expo.EOF Then
With Rs_Expo
Do While Not .EOF
Line.Write nDocu & "|"
Line.Write Trim((Rs_Expo("NroRuc"))) & "|"
Line.Write RTrim(Rs_Expo("RazSoc")) & "|"
Line.WriteLine RTrim(Round(Rs_Expo("MonImp"), 0)) & "|"
.MoveNext
Loop
End With
End If
Rs_Expo.Close: Set Rs_Expo = Nothing
Set File = Nothing: Set Line = Nothing