non riesco a cancellare un file, anche se err.number = 0
come mai ?
:-(
dim fileDel
Set fileDel = CreateObject("Scripting.FileSystemObject")
on error resume next
response.write TC & (server.mappath(ParmNomeFile)) & TC
fileDel.DeleteFile(server.mappath(ParmNomeFile))
select case err.number
case 0
' response.write "cancellazione effettuata"
case KErrFileNotFound
response.write "ERRORE " & err.number & TC & err.description & ParmNomeFile
case else
response.write "ERRORE " & err.number & TC & err.description
end select
set fileDel = nothing
Risutato output
D:\sspietropaolo\public\xml\SqlAllineaPiattaforma. xml

Rispondi quotando