Добрый день всем, подскажите пожалуйста, как вывести дату изменения файла, если неизвестно полное имя файла.
В папке есть файлы, названия которых: pr_2017_9_26_10_10_22_AM.txt ; pr_2017_9_26_10_14_01_AM.txt и т.п.
Код
Sub proverka()
Set FSO = CreateObject("Scripting.FileSystemObject")
Set File = FSO.GetFile("\\go-file01\папка1\папка2\папка3\11111\1" & "\" & "pr_" & Format(Date, "yyyy_m_dd") & "_*" & ".txt")
mStr = mStr & "Дата последней модификации мой файл - " & File.DateLastModified & vbCrLf
MsgBox mStr
End Sub
То есть мне необходимо найти файл с сегодняшней датой, которая пишется в формате "_2017_9_26", при этом, файлов с этой датой может быть несколько, либо вывести самую крайнюю дату изменения любого из файлов, находящихся в этой папке. У всех файлов из папки в наименовании неизменно только "pr" и формат .txt
Sub proverka()
Set fso = CreateObject("Scripting.FileSystemObject")
Set fol = fso.GetFolder("\\go-file01\папка1\папка2\папка3\11111\1" & "\")
For Each el In fol.Files
If el.Name Like "pr_" & Format(Date, "yyyy_m_dd") & "_*" & ".txt" Then
mStr = mStr & "Дата последней модификации `" & el.Name & "` - " & el.DateLastModified & vbCrLf
End If
Next el
MsgBox mStr
End Sub
Изменено: tolstak - 26.09.2017 12:25:29(Указал Ваш путь к файлу)