Guardar con FSO

javihb · #1 (**permalink**) 15/06/2006, 03:15

Hola vereis, tengo que guardar en un txt la información recogida en un formulario, hasta ahora lo hacia con Server.MapPath y despues le decia la ruta donde tenia mi txt....esto funcionaba correctamente pero ahora el cliente me pide que se lo guarde en su intranet y me pasa una direccion como \\suweb01\sucarpeta\sutxt.txt y lo que he echo es quitar lo de Server.MapPath y dejarle la ruta que me han pasado...pero me da error de archivo no encontrado.....

Código:

<% @LANGUAGE="VBSCRIPT"%>
<html>
<%
Dim CONST_LIBRO, oFSO, f, archivo, accion, contenido, cod1, cod2
cod1=Request.form("cod1")
cod2=Request.form("cod2")

CONST_LIBRO="\\suweb01\sucarpeta\sutxt.txt"
' Creamos el objeto FileSystemObject
set oFSO=Server.CreateObject("Scripting.FileSystemObject")
accion=Trim (CStr(Request.QueryString("a")))



	select case accion
	
	case "guardar"
		Guardar
		'MostrarLibro
		'MostrarFormulario
	'case else
		
		'MostrarFormulario
end select

set oFSO=nothing
Sub Guardar
'Guarda un nuevo comentario en el libro
Dim nombre, mail, mensaje, fecha, archivo, f, depart, cliente, consulta
fecha=Day(Now())&"/"&Month(Now())&"/"&Year(Now())
'Con Trim eliminamos los espacios en blanco a la derecha y a la izquierda
dep=Trim(CStr(Request.Form("depart")))
cli=CStr(Request.Form("cliente"))
consul=CStr(Request.Form("consulta"))
'No queremos comentarios anónimos o vacíos :-)
if cli <> "" and consul <>"" then
set archivo=oFSO.GetFile(CONST_LIBRO)
'Abro el archivo como un flujo de texto; 8: ForAppending, añadimos al final
set f=archivo.OpenAsTextStream(8)
f.WriteLine("cliente:" &cli)
f.WriteLine("escribió :" &dep)
f.WriteLine("fecha:" &fecha)
f.WriteLine("mensaje:" &consul)
f.WriteLine("*******************************************")
'Cierro el fichero
f.Close
set f=nothing
set archivo=nothing
'Response.Write("<p align=""center""class=""rojo""> Se ha añadido con éxito tu comentario</p>")
else
end if
End Sub 'Guardar            
%>

sabeis como puedo hacerlo...
Gracias

El_Metallick · #2 (**permalink**) 15/06/2006, 20:07

si no me equivoco la ruta debe ser la ruta fisica del archivo... vale decir C:\carpeta\archivo.txt... saludos