Поиск файла по неполному имени

RSS

Поиск файла по неполному имени, Вывести максимальную дату изменения файла из папки, если известно только часть имени файла

olom

Пользователь

Сообщений: 82 Регистрация: 25.08.2016

26.09.2017 08:31:38

Добрый день всем, подскажите пожалуйста, как вывести дату изменения файла, если неизвестно полное имя файла.

В папке есть файлы, названия которых: 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

Изменено: olom - 26.09.2017 09:09:48

tolstak

Пользователь

Сообщений: 471 Регистрация: 01.08.2017

26.09.2017 12:21:30

olom,

Код

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 (Указал Ваш путь к файлу)

In GoTo we trust

olom Пользователь Сообщений: 82 Регистрация: 25.08.2016	#3 26.09.2017 12:57:48 tolstak,большое спасибо за помощь)