Программа не находит один из файлов по указанному пути - VB

Формулировка задачи:

Помогите, пожалуйста, в такой ситуации! При запуске программа проверяет наличие двух файлов, если они отсутствуют – копирует в определенный каталог бланки этих файлов и переименовывает. Код выглядит так:

                   'Проверка наличия DBF файла базы данных
    Filename = App.Path & "\Date\*.*"
    If Dir(Filename) <> "" & (Form5.DTPicker1.Year) & ".dbf" Then
        SursFile = App.Path & "\fplat.bln"
        DestFile = App.Path & "\Date\" & (Year(Now)) & ".dbf"
        FileCopy SursFile, DestFile
        Else
    End If
                    'Проверка наличия DAT файла базы данных
        Filename = App.Path & "\Date\*.*"
        If Dir(Filename) <> "" & (Form5.DTPicker1.Year) & ".dat" Then
            SursFile = App.Path & "\Def.dat"
            DestFile = App.Path & "\Date\" & (Year(Now)) & ".dat"
            FileCopy SursFile, DestFile
            Else
        End If

На деле – оба файла есть в определенном каталоге, но программа видит только файл формата dbf, а файл формата dat не находит, следовательно перезаписывает этот файл. В чем может быть проблема? Заранее спасибо!

Решение задачи: «Программа не находит один из файлов по указанному пути»

textual
                            Листинг программы 
                        

                            Function ФайлСуществует(ИмяФайла As String) As Boolean
On Error Resume Next
nf = FreeFile
Open ИмяФайла For Input As #nf
If Err Then
    ФайлСуществует = False
Else
    ФайлСуществует = True
End If
Close #nf
End Function
                        