Modüle aşağıdaki kodu ekleyip modülü kaydedin.

Function FileExists(ByVal strFile As String, Optional bFindFolders As Boolean) As Boolean

    Dim lngAttributes As Long





    lngAttributes = (vbReadOnly Or vbHidden Or vbSystem)



    If bFindFolders Then

        lngAttributes = (lngAttributes Or vbDirectory) 'Include folders as well.

    Else



        Do While Right$(strFile, 1) = "\"

            strFile = Left$(strFile, Len(strFile) - 1)

        Loop

    End If





    On Error Resume Next

    FileExists = (Len(Dir(strFile, lngAttributes)) > 0)

End Function