Найдите местоположение файла в пути (состоящем из папок и подпапок), используя его имя и дату, когда он был изменен. - PullRequest
0 голосов
/ 29 мая 2019

У меня сейчас два столбца. Столбец A содержит список имен файлов (с расширением), а столбец B содержит дату его последнего изменения. Я хотел создать макрос, который просматривает список файлов и просматривает путь к файлу с папками и подпапками и печатает точную ссылку на таблицу в столбце C. Следует отметить, что подпапки содержат те же файлы, которые были созданы / изменено в разные даты, однако я хочу получить ссылку на файл с той же отметкой времени, что и в столбце B. Я написал несколько строк кода, но я изо всех сил стараюсь собрать необходимую логику.

Sub tester()

path = ""
fname = "Book1.csv"

x = Dir(path & "\" & fname)

If x = fname Then

    link = path & "\" & fname

    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(link)
    created = f.DateCreated

Else
    link = "Not Found"
End If
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...