Как запустить проверку fileExists с частичным подстановочным знаком имени файла?

Question

Мой код fileExists настроен, как показано ниже, однако часть имени файла (_0107_1999986 ниже) является случайной и меняется ежедневно. Любая идея, как подстановить эту часть кода так, чтобы функция fileExists привела к «продолжению», если другие критерии выполнены?

Dim c As Boolean

Set fs = CreateObject("Scripting.FileSystemObject")

c = fs.fileExists("M:\Fake\FakeXfer\" + Format(Now,"YYYYMMDD") + "_0107_1999986" + Format(Now-1, "YYYYMMDD") + ".csv"

IF Not c Then
    MsgBox "Check Later"
Else
    MsgBox "Proceed"
End If

End Sub

Answer 1

Может работать следующее:

Sub Example()
    Dim myPathAndFile, c

    myPathAndFile = "M:\Fake\FakeXfer\" + Format(Now, "YYYYMMDD") + "*" + Format(Now - 1, "YYYYMMDD") + ".csv"

    c = Dir(myPathAndFile)
    If (c = "") Then
        MsgBox "Check Later"
    Else
        MsgBox "Proceed"
    End If

End Sub

Возможно, подстановочный знак в середине имени файла не будет работать. Затем используйте его как последнюю часть перед расширением и выполните итерации по результатам, чтобы проверить последнюю часть имени.