PureUpload delete file before delete/update

This tutorial will explain how to delete a file while using an update form or a delete form in conjunction with PureASPUpload 1 & 2.

The article of Paul Keur also explains this, but i had some questions from people which couldn't get the picture with all the code in the demo pages.

It's actually very simple.

First of all you will need to these two functions to make it work.

<%
Function newFileSystemObject()
set newFileSystemObject=Server.CreateObject("Scripting.FileSystemObject")
End Function
%>

<%
Function fileExists(aFileSpec)
fileExists=newFileSystemObject.fileExists(aFileSpec)
End Function
%>

Find your code for either the delete or update sql statement that starts with:

Delete statement:

<%
' *** Delete Record: construct a sql delete statement and execute it

Update Statement:

<%
' *** Update Record: construct a sql delete statement and execute it

Just above these sql statements place the two functions as mentioned above.

Then insert the code as shown below in the update or delete statement:

' execute the delete/update
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_editConnection
' This is where we delete the file before we delete the record!
Set File = CreateObject("Scripting.FileSystemObject")
ImagePath = Server.MapPath("..\upload\")
ImagePath = ImagePath & "\" & (rsNews.Fields.Item("image").Value)
' check if file exists and if true delete the file
If fileExists(ImagePath) Then
File.DeleteFile(ImagePath)
End If
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close

As you see it also will work for an update ! This is very handy when using it for example a news administration with images, where it is allowed to edit/change images. This way all images will be deleted from your system/server.

One important note is that the database field that is called from the recordset, in this example (rsNews.Fields.Item("image").Value), needs to be opened before you call this database field. So, if your recordset is below the sql statement for update or delete, move it to the very top.

Example code of the recordset:

<%
Dim rsNews__MMColParam
rsNews__MMColParam = "1"
if (Request.QueryString("ID") <> "") then rsNews__MMColParam = Request.QueryString("ID")
%>
<%
set rsNews = Server.CreateObject("ADODB.Recordset")
rsNews.ActiveConnection = MM_connUDZONE_STRING
rsNews.Source = "SELECT * FROM tblNews WHERE ID = " + Replace(rsNews__MMColParam, "'", "''") + ""
rsNews.CursorType = 0
rsNews.CursorLocation = 2
rsNews.LockType = 3
rsNews.Open()
rsNews_numRows = 0
%>

The below example would delete multiple files, uploaded with PureASPUpload.

Creating a dynamic array and using the statement For Each..Next to get access to this array.

Setting up the array with the fields of the database that holds the filename of the file uploaded:

<%
' *** Delete Record: construct a sql delete statement and execute it
Dim aspfile, Imagepath1, ImagePath2, ImagePath3, ImagePath4

ImagePath1 = Server.MapPath("upload\")
ImagePath1 = ImagePath1 & "\" & (Recordset1.Fields.Item("file1").Value)

ImagePath2 = Server.MapPath("upload\")
ImagePath2 = ImagePath2 & "\" & (Recordset1.Fields.Item("file2").Value)

ImagePath3 = Server.MapPath("upload\")
ImagePath3 = ImagePath3 & "\" & (Recordset1.Fields.Item("file3").Value)

ImagePath4 = Server.MapPath("upload\")
ImagePath4 = ImagePath4 & "\" & (Recordset1.Fields.Item("file4").Value)

Dim ImageLibrary(3)
ImageLibrary(0) = ImagePath1
ImageLibrary(1) = ImagePath2
ImageLibrary(2) = Imagepath3
ImageLibrary(3) = ImagePath4

Using the For Each..Next statement to access the array and set the delete action:

If (Not MM_abortEdit) Then
' execute the delete
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_editConnection

' setup the statement
For Each aspfile In ImageLibrary
Set File = CreateObject("Scripting.FileSystemObject")
' check if file exists and if true delete the file
If fileExists(aspfile) Then
File.DeleteFile(aspfile)
End If
Next

MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close

Hope this answers the requests for some people, for deleting multiple files.

Note: the ending slash has to be in to make it work in the Server.MapPath. For some reason it works with me without this slash (?)
ImagePath = Server.MapPath("..\upload\")