Ciao, non riesco a esportare in formato rtf una serie di dati inviati con asp, il code restituisce:questa è la parte di code interessata, la riga 58 è segnata in rosso:Error Type:
Microsoft VBScript runtime (0x800A004C)
Impossibile trovare il percorso.
/writePDL.asp, line 58Grazie a tutti.codice:'creo un nuovo documento con Nome e Cognome reali al posto dei TAG Set f = fso.OpenTextFile(Server.MapPath("PDLNEW.rtf"), 2, True) Function RenameExt(Path) Dim Fso,Dic,Ext,Files,File,NuovoNome Set Fso = Server.CreateObject("Scripting.FileSystemObject") Set Files = Fso.GetFolder(Server.MapPath(Path)).Files dim i i = -1 For each File in files i = i+1 NuovoNome = i&".rtf" if fso.FileExists(server.mappath(path) & "\" & Nuovonome) = true then fso.DeleteFile server.mappath(path) & "\" & Nuovonome,true end if fso.MoveFile File.Path, server.MapPath(path) & "\" & Nuovonome next Set Files = Nothing Set Fso = Nothing end function RenameExt("quadrati")

Rispondi quotando