Comment puis-je Déterminer Si le Fichier Existe à l'Aide de VBA Excel 2007?

Je tente de réécrire un code qui a été à l'aide de FileSearch pour Excel 2003 VBA. Je suis d'essayer d'appeler une fonction qui doit déterminer 1 ou 0 et à l'aide d'un If déclaration, je vais exécuter un code ou d'itérer le fichier suivant.

Je ne suis pas retourner le résultat correct de ma fonction.

Mon code:

 Dim MyDir As String, Fn As String
 Dim MyFile As String

   MyDir = "C:Test\"
   Fn = "" & "" & Examiner & " " & MnName & " " & Yr & ".xls"
   MyFile = MyDir & """" & Fn & """"

    If FileThere(MyFile) Then
    MsgBox yes

    Else
    MsgBox Not there

    End If

    '''''''''''''''''
    Function FileThere(FileName As String) As Boolean
         FileThere = (Dir(FileName) > "")
    End Function

OriginalL'auteur JohnM | 2010-11-02

  1. 9
    Sub a()

MsgBox "test1 " & FileThere("c:\test1.bat")
MsgBox "k1" & FileThere("c:\k1")

End Sub

Function FileThere(FileName As String) As Boolean
     If (Dir(FileName) = "") Then
        FileThere = False
     Else:
        FileThere = True
     End If
End Function

    OriginalL'auteur Dr. belisarius