A ver, tengo este código que ya funciona...por alguna razón, me envíaba un error de argumentos
lo cambié por las constantes, hazte un respaldo del archivo que vas a abrir por precaución.
RutaUpload= "..\Procedimientos\Manual"
FileName= "prueba.txt"
Set fso= Server.CreateObject("Scripting.FileSystemObject")
ruta= server.mappath(RutaUpload) & "\" & FileName
fso.OpenTextFile ruta,2,true
Response.Write(ruta)
Salu2,