I automated a copy-paste procedure that runs upon clicking a button, see code underneeth.
Private Sub Command122_Click()
Dim rs As dao.Recordset, strSource, strDest
strSource = "D:\FolderA\"
strDest = "D:\FolderB\"
Set rs = CurrentDb.OpenRecordset("select * from tbl_archief where nieuw=true")...