Страницы: 1
RSS
Узнать дату копирования
 
Есть подозрение что некоторыми лицами были скопированы (украдены) файлы xls. с носителя.  
Возможно ли просмотреть дату последнего копирования книги.  
Infa важная была.  
Помогите.
 
Прошу помочь, очень срочно надо...  
или мне вешалка
 
нет.
 
---  
Если файл сохранился, и его никто не трогал, то в 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
 
и что, если файл не открывался, а просто был скопирован что-то изменится?  
там фиксируется только доступ к данным внутри файла, т.е. "открытие" файла
 
{quote}{login=слэн}{date=26.04.2008 10:07}{thema=}{post}и что, если файл не открывался, а просто был скопирован что-то изменится?  
там фиксируется только доступ к данным внутри файла, т.е. "открытие" файла{/post}{/quote}  
---  
Легко проверить: время обычного копирования (совсем не обязательно из Excel) тоже фиксируется как время последнего доступа.    
---  
ZVI
 
конечно проверил..
Страницы: 1
Читают тему
Наверх