2 условия делают пока - Макрос Excel

Question

Я пытаюсь запустить мой макрос через файлы на основе двух условий, код следующий:

Sub RefreshYesterday()
    Dim folderPath As String
    Dim filename As String
    Dim wb As Workbook
    FullName = ActiveWorkbook.FullName
    Name = ActiveWorkbook.Name
    slice = Len(FullName) - Len(Name)
    FileDate = Left((FileDateTime(FullName)), 10)
    Application.AskToUpdateLinks = False
    Application.DisplayAlerts = False

    folderPath = (Left(FullName, slice))

    If Right(folderPath, 1) <> "\" Then folderPath = folderPath + "\"

    filename = Dir(folderPath & "*.xlsb")
    **Do While filename <> "" And FileDate <> Date**
      Application.ScreenUpdating = False

        Set wb = Workbooks.Open(folderPath & filename)

        'Call a subroutine here to operate on the just-opened workbook
        Call Mymacro
        DoEvents


        filename = Dir
    Loop
    Application.ScreenUpdating = True
    Application.AskToUpdateLinks = True
    Application.DisplayAlerts = True
  MsgBox "Update Complete " + GetXLUserName
End Sub

Однако условие do while, которое должно игнорировать файлы с последней обновленной сегодня датой, не работает, оно работает через каждую папку независимо от даты, любой совет?

Do Пока имя файла <> "" И Дата файла <> Дата