RE:Como genero un archivo .dat ?
Publicado por
Merlina (1 intervención) el 10/06/2003 23:30:11
'El siguiente código funciona, y es muy simple. Suerte!!!
Dim FileName
FileName = "Archivo.dat"
Dim FilePath
FilePath = Server.MapPath (FileName)
Const fsoEscritura = 2
Dim objFSO
'Instantacion del Objeto FSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
'Abrir el archivo de Texto, para escritura, lo crea en caso que no exista (true)
Dim objTextStream
Set objTextStream = objFSO.CreateTextFile(FilePath, True)
'Pone Títulos
xLineaTexto = "CAMPO1" & Chr(9) & "CAMPO2" & Chr(9) & "CAMPO3"
objTextStream.WriteLine xLineaTexto
Dim xLineaTexto
Dim Campo1, Campo2, Campo3
xLineaTexto = Campo1 & Chr(9) & Campo2 & Chr(9) & Campo3
objTextStream.WriteLine xLineaTexto
'Cerrar e inicializar los objetos
objTextStream.Close
Set objTextStream = Nothing
Set objFSO = Nothing