vb Delete a file

Sub DeleteFile(strFile)
	Dim strFullPath
	Dim filesystem

	strFullPath = Server.Mappath(strFile)
	Set filesystem = Server.CreateObject("Scripting.FileSystemObject") 
	
	If filesystem.FileExists(strFullPath) Then
		Call filesystem.DeleteFile(strFullPath,true)
		Response.Write "

File " & strFile & " has been deleted!

" Else Response.Write "

File " & strFile & " does not exist!

" End If Set filesystem = nothing End Sub
Deletes a file if it exists.

Updated: Saturday 2nd October 2010, 00:59am

There are 0 comments

Leave a comment of your own

Comments are currently closed.