В общих чертах есть следующий код, который проверяет дату создания/изменения файлов.
Private Sub Workbook_Open()
Dim adres As Variant
Dim ifile As Variant
Dim idate As Variant
Dim ifile2 As Variant
Dim idate2 As Variant
adres = Me.Path
ifile = adres & "\KPI.xls"
ifile2 = adres & "\Выполнение плана.xls"
idate = Format(FileDateTime(ifile), "dd-mm-yy")
idate2 = Format(FileDateTime(ifile), "dd-mm-yy")
If idate = idate2 Then MsgBox "ОК" else: _
If idate < idate2 Then MsgBox "файл KPI старый" Else MsgBox "файл Выполнение Плана старый"
End Sub
Мне не совсем подходит оператор FileDateTime, так как он выдает информацию последнего изменения файла, а надо именно создания, так, например, дата создания может быть одна, а дата изменения другая - более поздняя. Что можете посоветовать?
Private Sub Workbook_Open()
Dim adres As Variant
Dim ifile As Variant
Dim idate As Variant
Dim ifile2 As Variant
Dim idate2 As Variant
adres = Me.Path
ifile = adres & "\KPI.xls"
ifile2 = adres & "\Выполнение плана.xls"
idate = Format(FileDateTime(ifile), "dd-mm-yy")
idate2 = Format(FileDateTime(ifile), "dd-mm-yy")
If idate = idate2 Then MsgBox "ОК" else: _
If idate < idate2 Then MsgBox "файл KPI старый" Else MsgBox "файл Выполнение Плана старый"
End Sub
Мне не совсем подходит оператор FileDateTime, так как он выдает информацию последнего изменения файла, а надо именно создания, так, например, дата создания может быть одна, а дата изменения другая - более поздняя. Что можете посоветовать?