MyTetra Share
Делитесь знаниями!
проверка даты создания файла
09.01.2018
07:32
Текстовые метки: fso,FileDateTime
Раздел: VBA - FSO

Попробуйте:  
MsgBox ActiveWorkbook.BuiltinDocumentProperties("Creation Date")


https://social.technet.microsoft.com/Forums/ru-RU/c3cbaec0-fdd3-4182-aa02-e2e893b54df7/vba-?forum=msoclientru

Debug.Print (FileSystem.FileDateTime("C:\file.txt"))



'=======================================================

Я использую такую функцию:  
 
Sub GetFileProperty(SourceNameBook As String, SourcePathFile As String, StartRow As Long, StartColumn As Long, TargetNameSheet As String)  
With CreateObject("Shell.Application")  
Dim oFolder As Object, oFile As Object  
Set oFolder = .Namespace((SourcePathFile))  
Dim sTheme As String, sAvtor As String  
If Not oFolder Is Nothing Then  
Set oFile = oFolder.ParseName((SourceNameBook))  
If Not oFile Is Nothing Then  
With ThisWorkbook.Sheets(TargetNameSheet)  
Dim j As Integer  
For j = 1 To 5 '14  
 .Cells(StartRow + j - 1, StartColumn) = oFolder.GetDetailsOf(oFile, j)  
Next j  
End With  
End If  
Else  
  MsgBox "Файл " & SourceNameBook & " не доступен.", vbInformation, "Сообщение"  
End If  
End With  
End Sub  
 
Функция укладывает на лист с именем TargetNameSheet на позицию StartRow,  StartColumn и ниже следующие данные:  
Объем файла  
Тип  
Дата последнего изменения  
Дата создания  
Дата открытия




'=======================================================

Вариант:  
Public Sub qqq()  
Set FSO = CreateObject("Scripting.FileSystemObject")  
Set File = FSO.GetFile("H:\Temp\bad.xls") 'тут путь и имя файла  
mStr = mStr & "Дата создания - " & File.DateCreated & vbCrLf  
mStr = mStr & "Дата последнего доступа - " & File.DateLastAccessed & vbCrLf  
mStr = mStr & "Дата последней модификации - " & File.DateLastModified & vbCrLf  
MsgBox mStr  
End Sub



'=======================================================

Спасибо, так же самому удалось решить след образом.  
 
Sub ДатаВремяСоздания()  
Set FSO = CreateObject("Scripting.FileSystemObject")  
Set File = FSO.GetFile("c:\outbound delivery\delivery.txt")  
ActiveWorkbook.ActiveSheet.Range("A1").Value = File.DateCreated & vbCrLf  
End Sub



'=======================================================





'=======================================================

Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования