cancellazione fallita

[videoD]

ciao,

ho il seguente script che dovrebbe cancellare il file passato dalla pag precende, non da errore ma non cancella nulla..

Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

dim dir, file, percorso

dir = request("dir")
file = request("file")

percorso = dir &"/"&file
percorso = server.mappath(dir)

'Il file viene cancellato
objFSO.DeleteFile(percorso)

Set objFSO = Nothing


response.redirect("A_messaggio.asp?cod=62")

come mai?

grazie

[supergeniux]

Prova cosi:

file    = request("dir")
file    = file&"/"&request("file")

set fso = CreateObject("Scripting.FileSystemObject")
set OggFile = fso.GetFile(file)

OggFile.Delete

'libera risorse e fai il redirect

[videoD]

grazie mille provo subito...

una domanda / dubbio ..

se uso lo stesso recordset per il db intendo, usandolo più volte e rifacendo per ogni query in qui cambia il sql:

'Eseguo la query
set DBrec = Server.CreateObject("ADODB.Recordset")
DBrec.open strsql, Conn, , ,adCmdTable


va bene chiuderlo una volta sola ala fine della pagina vero?

grazie

[supergeniux]

una volta lo apri, una volta lo chiudi

[videoD]

perfetto,, riguardo allo script che mi hai postato come correzione al mio, ho semplicemente aggiunto il Server.MapPath() nel passaggio del file da eliminare e ...FYunziona perfettamente..grazie mille mille grazie..

[supergeniux]