Добрый день.
При закрытии файла работает макрос создания его копии.
Эти копии накапливаются, хочу автоматизировать удаление старых (по превышению количества).
Как проверить дату старых файлов?
При закрытии файла работает макрос создания его копии.
Код |
---|
Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveWorkbook.Save Dim x As String 'папка для сохранения резервной копии strPath = ThisWorkbook.Path + "\backup\" On Error Resume Next x = GetAttr(strPath) And 0 If Err = 0 Then ' если путь существует - сохраняем копию книги, добавляя дату-время strDate = Format(Now, "yyyy,mm,dd hh-mm") FileNameXls = strPath & "Файл " & strDate & ".xlsb" ActiveWorkbook.SaveCopyAs Filename:=FileNameXls Dim c As Long If Dir(strPath & "*.xlsb") = "" Then Exit Sub Else c = 1 Do If Dir = "" Then Exit Do Else c = c + 1 Loop Until False If c > 100 Then MsgBox ("В папке \backup накопилось более " & c & " резервных копий, старые можно удалить.") Else MsgBox "Папка " & strPath & " недоступна или не существует.", vbCritical End If End Sub |
Эти копии накапливаются, хочу автоматизировать удаление старых (по превышению количества).
Как проверить дату старых файлов?