problemas al escribir en un archivo plano

Prueba con este codigo:

' Se crean las variables a utilizar (PathXXX corresponde a la ruta
' del archivo de tipo XXX que utilizaremos).
PathTXT = Server.MapPath("datos.TXT")
FinLinea = ""

' Creo los objetos que utilizaremos, serán de los tipos FSO, TextStream y
Connection
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set Arch_Excel = fso.CreateTextFile(PathTXT, True)

FinLinea=""

for each fldloop in sn.Fields
FinLinea = FinLinea & fldloop.name & chr(9)
next
Arch_Excel.writeline FinLinea

'Set RS= Server.CreateObject("ADODB.Recordset")
'SQL="Select * from inscripcion_egresados ORDER BY RUT"
'RS.open SQL,BdConec,1

while not sn.eof
FinLinea=""
for each fldloop in sn.Fields
FinLinea = FinLinea & fldloop.value & chr(9)
next
Arch_Excel.writeline FinLinea
sn.MoveNext
wend

Arch_Excel.Close
Set Arch_Excel = Nothing
Set fso = Nothing

www.pagestylus.cl


"cousi" escribió:

Muchas gracias Carlos

De momento ha funcionado.

Jose Mª Cousiño
>Jose:
>
>Intenta cambiando esta linea:
>Set Mfile = fs.OpenTextFile("i:\sitios web\a\" &
filename,2,true)
>
>por esta:
>Set Mfile = fs.OpenTextFile("i:\sitios web\a\" &
filename,forappending)
>
>Saludos,
>
>Carlos
>
>"cousi" escribió en el
mensaje
>news:
>> Hola a todos.
>>
>> Estoy intentando escribir en un archivo que ya exite,
lo que pasa es que
>me
>> crea el archivo en el diretorio anterior y no en el
archivo que ya existe.
>> Este es el codigo, en que falla
>>
>> <%
>> filename = "miarchivo.txt"
>> set fs = Server.CreateObject
("Scripting.FileSystemObject")
>> Set Mfile = fs.OpenTextFile("i:\sitios web\a\" &
filename,2,true)
>>
Mfile.WriteLine "="
>> Mfile.WriteLine "Variable; Otra Variable"
>>
Mfile.WriteLine "="
>> Mfile.WriteLine "Mivariable"
>> Mfile.close
>>
>> Response.write "Se ha escrito en el archivo
correctamente"
>> %>
>>
>> Yo quiero que escriba en el archivo que se llama
miarchivo que existe en
>el
>> directorio i:\sistios web\a, y no como me hace ahora
que sale en i:\sitios
>> web, ahi me lo creo. Por que falla.
>>
>> Muchas gracias.
>>
>> Jose Mª Cousiño
>>
>>
>
>
>.
>