Thank you. The last suggested change, error handler syntax changed to this:
Err_Handler:
strSQL = "INSERT INTO Files " _
& " (FName, Fmodified, FPath) " _
& " VALUES('~ERROR','~Error~','" _
& strFolder & "')"
CurrentDb.Execute strSQL
This runs the code with no errors, but...