Deleting Files based on criteria

[gemadan96]

I have a module used to backup the backend database. It does exactly that. I've added code to insert a record in to a table (BackupLog) that includes the path and file name of the backup. That works. I've also added code to determine if any of my backups have expired and if they have mark them for deletion. That works.

Now I'm trying to add code that will delete the expired backups. The code I have so far is below.

'Delete Expired Backups
Dim strRS As String
strRS = "Select * FROM BackupLog WHERE Delete = True"
Dim rs As Recordset
Dim BUFileDelete As String
Set rs = CurrentDb.OpenRecordset(strRS)
If rs.RecordCount > 0 Then
rs.MoveFirst
Do Until rs.EOF
BUFileDelete = rs![BackupFile]


Kill BUFileDelete
Loop
Else
MsgBox "No expired backups"
End If
Set rs = Nothing

When I run it I get a message 53: File not found. The expired files don't get deleted. Everything else works.

Any suggestions are appreciated.

[June7]

I tested the Kill method using a variable and it works. Have you step debugged? Does the variable get set with expected values?

[gemadan96]

Did the step debug. It seems to be a problem with the loop. In testing there are two files to delete. It deletes the first one then goes back to the start of the loop. What it's not doing is moving to the next file. I'm getting the file not found error because the file has been deleted.

Found that I left the following out right before the loop statement: rs.MoveNext. Put that in and it works.

[June7]

And I see that now. Glad you found it and is working.