Check if file starting with a pattern exists or no

desperado1306 · May 28th, 2006, 11:15 AM

Hi

I want to check if a file beginning with a fixed pattern, say, "PROGRAM" exists or not. So all files like "PROGRAM", "PROGRAM123", "PROGRAM.xls" and "PROGRAM 15-May-2006.xls" should pass this check. I don't know how this can be done. Please help !

The way I shall use it is

Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FileExists(filename) Then
' do something
End If

What shoould I append with filename so that all such filenames pass above written test ?

jrogers · May 30th, 2006, 08:28 AM

try something like this

Code:

Const File_Loc = "C:\"


Set RiskFile = Application.FileSearch

    With RiskFile
        .NewSearch
        .LookIn = File_Loc
        .Filename = "Program*"

        If .Execute(SortBy:=msoSortByLastModified, sortorder:=msoSortOrderDecending) > 0 Then
            'Do Something        
        End If
    End With