Impossibile trovare il percorso.

[orcim]

Ciao, non riesco a esportare in formato rtf una serie di dati inviati con asp, il code restituisce:

Error Type:
Microsoft VBScript runtime (0x800A004C)
Impossibile trovare il percorso.
/writePDL.asp, line 58

questa è la parte di code interessata, la riga 58 è segnata in rosso:

'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")

Grazie a tutti.

[kalosjo]

la directory "quadrati" si trova allo stesso livello del file che contiene quella funzione?

Il server è 2003? In questo caso devi mettere "/quadrati"

[orcim]

Il server è windows 2000... devo creare una directory chiamata quadrati???

[kalosjo]

RenameExt("quadrati")

Richiama la funzione passando "quadrati" come path...

Poi, nella funzione:

Set Files = Fso.GetFolder(Server.MapPath(Path)).Files

Il che vuol dire che cerca di estrarre i files contenuti dentro il percorso "path", che è "quadrati" (vedi il parametro della funzione)

[orcim]

Bene, grazie adesso funziona.

[orcim]

Scusami un'ultima cosa è possibile inviare via email, come allegato, il file rtf appena creato al compilatore dei dati?

[kalosjo]

Utilizzando CDONTS o CDOSYS, dipende dal sistema operativo del server...

[orcim]

Originariamente inviato da kalosjo
Utilizzando CDONTS o CDOSYS, dipende dal sistema operativo del server...

CDONTS...

[orcim]

Provo così, ma non funziona... errore non specificato:

Set link = CreateObject("CDONTS.Newmail")
link.From = "miaemail@email.it"
link.To = EMAIL

file = "PDLNEW.rtf"
link.AttachFile file
------------
link.Body = messaggio
link.BodyFormat = 0 
link.MailFormat = 0 
link.Send
Set link = Nothing

[willybit]

per il file devi dare un percorso fisico... usa Server.MapPath