Hi guys,
I am trying to delete a file from server, but it seems my codes doesn't do any thing and still file is in erver. Could you please help me where I am wrong?

Many thanks,
Elham
------------------- code ----------------------

<%
Set Upload = Server.CreateObject("Persits.Upload")
Count = Upload.Save("C:\Inetpub\wwwroot\stecs-dev\contact\")
Response.Write Count & " file(s) uploaded to C:\Inetpub\wwwroot\stecs-dev\contact\"
Response.write("<hr>")
%>
<%
SUB sendmail( fromWho, toWho, AddAttachment1, Subject, Body )
Dim objCDO
Dim iConf
Dim Flds
Const cdoSendUsingPort = 2
Set objCDO = Server.CreateObject("CDO.Message")
Set iConf = Server.CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
With Flds
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "stecs-exchange.stecs.com"
.Item(cdoSMTPServerPort) = 25
.Item(cdoSMTPconnectiontimeout) = 10
.Update
End With
Set objCDO.Configuration = iConf
objCDO.From = fromWho
objCDO.To = toWho
objCDO.Subject = Subject
objCDO.AddAttachment AddAttachment1
objCDO.TextBody = "CONTACT INFORMATION" & vbCrLf & "____________________" & vbCrLf &_
"Name: " & firstname & vbCrLf & "Company: " &company & vbCrLf &_
"Address: " & Address & vbCrLf & "City: " &city & ", "& state & " " &zip & vbCrLf &_
"Country: " &country & vbCrLf & "phone: " &phone & vbCrLf & "My Message : " & myMessage & vbCrLf & "How did you hear about us? " & Body
objCDO.Send
ConfirmMsg = Response.redirect("thankyou.html")
END SUB
Dim Domainname
Dim MailServer
Dim From
Dim subject1
Domainname = "webdev.stecs.com"
MailServer = Upload.Form("MailServer")
subject1 = "IDS-7934969 - "
fromWho = Upload.Form( "fromWho")
'toWho = Upload.Form( "toWho") + "@stecs.com"
toWho = "resumes@stecs.com"
AddAttachment1= Upload.Files("toAttachment").path
firstname = TRIM( Upload.Form( "Name" ) )
company = TRIM( Upload.Form( "Company" ) )
address = TRIM( Upload.Form( "Address" ) )
city = TRIM( Upload.Form( "City" ) )
state = TRIM( Upload.Form( "State" ) )
zip = TRIM( Upload.Form( "Zip" ) )
country = TRIM( Upload.Form( "Country" ) )
phone = TRIM( Upload.Form( "Phone" ) )
myMessage = TRIM( Upload.Form( "MyMessage" ) )
Subject = TRIM( Upload.Form( "Subject" ) )
Body = TRIM( Upload.Form( "Body") )
send_mail = Upload.Form( "send_mail")
If send_mail <> "" THEN
sendMail fromWho, toWho, AddAttachment1, Subject, Body

'Cleanup
Set ObjCDO = Nothing
Set iConf = Nothing
Set Flds = Nothing
END IF

' DETLETE UNNEEDED FILE AFTER UPLOADING
Dim myFSO
'this line creates an instance of the File Scripting Object named myFSO
SET myFSO = Server.CreateObject("Scripting.FileSystemObject")
'error handling here to make sure that things go smoothly
'if the file does not exist
If myFSO.FileExists(filepath) Then
'then we delete it
myFSO.DeleteFile(AddAttachment1)
response.write("<hr>")
response.write("Temporary file deleted : "&AddAttachment1)
Else
'otherwise we tell the client it does so they don't get a nasty error
Response.Write "THIS FILE DOESN'T EXISTS"
End If
'this line destroys the instance of the File Scripting Object named myFSO
SET myFSO = NOTHING
%>

deletefile requires an absolute path, check it is getting one and if not use server.mappath() to create one.

You also need to assign something to the Filepath variable. It should be of the form (file path + attachment). It doesn't look like you have.

Response.Write Filepath in the line immediately above

If myFSO.FileExists(filepath) Then

and see what output you get.

Thanks for the responce but one thing I want to know that "AddAttachment1" has a path and file name inside right? if so then why file can not be removed from server, since "AddAttachment1" had path and file name inside to email it to user right?I am puzzled!!!

Elham

BTW I changed this line to:
=====
If myFSO.FileExists(AddAttachment1) Then
=====

Here the code again just delete part:
--------------------------------------------------

' DETLETE UNNEEDED FILE AFTER UPLOADING
Dim myFSO
'this line creates an instance of the File Scripting Object named myFSO
SET myFSO = Server.CreateObject("Scripting.FileSystemObject")
'error handling here to make sure that things go smoothly
'if the file exists
If myFSO.FileExists(AddAttachment1) Then
'then we delete it
myFSO.DeleteFile(AddAttachment1)
response.write("<hr>")
response.write("Temporary file deleted : "&AddAttachment1)
Else
'otherwise we tell the client it does so they don't get a nasty error
Response.Write "THIS FILE DOESN'T EXISTS"
End If
'this line destroys the instance of the File Scripting Object named myFSO
SET myFSO = NOTHING

The reason I am saying "AddAttachment1" should have file and path inside is this line that I used before for sending email...

AddAttachment1= Upload.Files("toAttachment").path

Please advise....
Thanks
Elham

Hi Adam,
Still I a waiting for help but meanwhile as you suggested I used mappath but I guess I am not using it right since still when I upload the file stays in server....

myFSO.DeleteFile(Server.MapPath(AddAttachment1))

Please help
Thanks,
Elham

use (filename,true) to force the delete operation

the file may still be held open