---
Если файл сохранился, и его никто не трогал, то в Windows XP можно узнать дату и время последнего доступа. Время копирования также является временем доступа:
Sub ПроверкаВремениДоступа()
Const file = "C:\TopOrDeepSecrets.xls"
Call ShowFileAccessInfo(file)
End Sub
Sub ShowFileAccessInfo(filespec)
Dim fs, f, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(filespec)
s = filespec & vbCrLf
s = s & "Создан: " & f.DateCreated & vbCrLf
s = s & "Последний доступ: " & f.DateLastAccessed & vbCrLf
s = s & "Последнее изменение: " & f.DateLastModified
MsgBox s, 0, " Информация о времени доступа к файлу"
End Sub
---
ZVI