set filesys=CreateObject("Scripting.FileSystemObject") error on access 2021

[einstein28]

Private Sub BACKUP_Click() Set filesys = CreateObject("Scripting.FileSystemObject") >>> ERROR' path di origine del DB Dim pdb As String pdb = "D:\CERTIFICAZIONI BSI\CLIENTI\AZIENDE\" oldpath = pdb Archive = "DB AUDIT 27001 DAL 01-06-2018.accdb" ' DB AUDIT 27001 DAL 01-06-2018.accdb dtsei = Right(Year(Now), 4) & _ Right("0" & Month(Now), 2) & _ Right("0" & Day(Now), 2) dtsei = Left(dtsei, 8) & "\" ' path destinazione DOVE CREARE UNA CARTELLA BACKUP newpath = oldpath & "Backup\" '*** Copia giornaliera *** If Not (filesys.FolderExists(newpath)) Then Set newf

Continue reading...