Страницы: 1
RSS
дата изменения файла
 
всем привет! Подскажите, пожалуйста, как с помощью вба, узнать когда изменялся и открывался файл? Заранее спасибо!
Киса, я хочу Вас спросить, как художник — художника: Вы рисовать умеете?
 
Public Sub www()  
   Dim fso As Object, file As Object  
   Set fso = CreateObject("Scripting.FileSystemObject")  
   Set file = fso.GetFile("H:\Totals.xls")  
   MsgBox file.DateLastModified  
End Sub
Я сам - дурнее всякого примера! ...
 
спасибо!
Киса, я хочу Вас спросить, как художник — художника: Вы рисовать умеете?
 
Про открывался забыл.  
Public Sub www()  
   MsgBox "Открывался " & CreateObject("Scripting.FileSystemObject").GetFile("H:\Totals.xls").DateLastAccessed  
   MsgBox "Изменялся " & CreateObject("Scripting.FileSystemObject").GetFile("H:\Totals.xls").DateLastModified  
End Sub
Я сам - дурнее всякого примера! ...
Страницы: 1
Наверх