Scripting.FileSystemObject, No errorsm but file still left on server and not deleted!

[melchenyi]

Hi all, please help. I'm trying to delete image files from the local web server I'm testing on, the IIS. There is no error and whatsoever, but the function does not work. The files are still there and not deleted.

I have done a response.write and the image path file name is correct, but the file still is not deleted. Please see my code:


dim picLocation1
dim objFSO1

picLocation1 = Request.QueryString("vehicle_photo1")

On Error Resume Next

Set objFSO1=Server.CreateObject("Scripting.FileSystemO bject")

If objFSO1.FileExists(picLocation1) Then
objFSO1.DeleteFile (picLocation1)
End If

If Err.Number = 0 Then
Response.Write "File Deleted"
Else
Response.Write Err.Description
End If

set objFSO1=nothing

THANKS HEAPS!

[shweta123]

Hi,

Have you tried Server.MapPath(filename)?

Also Check "If objFSO1.FileExists(picLocation1) " this statement is returning true or false?
There must be some mismatch between actual web server path and PicLocation1.

Hi all, please help. I'm trying to delete image files from the local web server I'm testing on, the IIS. There is no error and whatsoever, but the function does not work. The files are still there and not deleted.

I have done a response.write and the image path file name is correct, but the file still is not deleted. Please see my code:


dim picLocation1
dim objFSO1

picLocation1 = Request.QueryString("vehicle_photo1")

On Error Resume Next

Set objFSO1=Server.CreateObject("Scripting.FileSystemO bject")

If objFSO1.FileExists(picLocation1) Then
objFSO1.DeleteFile (picLocation1)
End If

If Err.Number = 0 Then
Response.Write "File Deleted"
Else
Response.Write Err.Description
End If

set objFSO1=nothing

THANKS HEAPS!

[melchenyi]

Hi shweta123

Thanks, I'm currently multi-tasking and doing some other stuff at the moment, I'll try your suggestion and let you know.. Thanks for replying.