Dim FSO Set FSO = Server.CreateObj

[zakd]

Dim FSO
Set FSO = Server.CreateObject ("Scripting.FileSystemObject&quot
Dim itemName, itemPath
itemName = "photo.gif"
itemPath = Server.MapPath("Photos&quot & "\" & itemName
Dim itemFile
Set itemFile = FSO.GetFile (itemPath)
itemFile.Delete


Can anyone tells me why this code doesn't works???
Or let me know how can i delete a file....
Thanks.

 

[RussellGrice]

I think you need a complete path not a relative one.

Try something like:

' delete the document
Dim filesys
Dim file_name
Dim folder

file_name = photo.gif
folder = "F:\Inetpub\Intranet\photos\"
Set filesys=CreateObject("Scripting.FileSystemObject&quot

if filesys.FileExists(folder & file_name) then
filesys.DeleteFile(folder & file_name)
response.write &quot;<p>You have deleted your document.</p>&quot;
else
response.write &quot;<p>Im sorry but no document with that name can be found.</p>&quot;
end if

Hope this helps

Russell

 

[RussellGrice]

I should probably have put

file_name = &quot;photo.gif&quot;

and you will need to find out what you path is to set 'folder' to.

does that make sense ?