Dim fso As New Scripting.FileSystemObject
If fso.FolderExists( "D:\fin2003\" ) Then MsgBox  "Exist" 

Function CustomFindFile(strFileSpec As String)
    ' This procedure demonstrates a simple file-search'
    ' routine that displays a message box containing the'
    ' names of all files in the "c:\" directory that'
    ' match the file specifications provided in the'
    ' strFileSpec argument.'
    ' The strFileSpec argument can contain one or more file'
    ' specifications in a semicolon-delimited list. For example, the'
    ' following strFileSpec argument will return all files'
    ' in the "c:\" that contain these extensions: "*.log;*.bat;*.ini"'
    
    Dim fsoFileSearch   As Office.FileSearch
    Dim varFile         As Variant
    Dim strFileList     As String
    
    ' If the input in valid, then process the file search.'
    If Len(strFileSpec) >=  3  And InStr(strFileSpec,  "*." ) >  0  Then
        Set fsoFileSearch = Application.FileSearch
        With fsoFileSearch
            .NewSearch
            .LookIn =  "c:\" 
            .FileName = strFileSpec
            .SearchSubFolders = False
            If .Execute() >  0  Then
                For Each varFile In .FoundFiles
                    strFileList = strFileList & varFile & vbCrLf
                Next varFile
            End If
        End With
        MsgBox strFileList
    Else
        MsgBox strFileSpec &  " is not a valid file specification." 
        Exit Function
    End If
End Function