application.filesearch fix needed

[mlmcelligott]

Hi
Newbie here posting for the first time, hi everyone. Ive been given an old spreadsheet to use and there's an issue with application.filesearch and excel 2010. The code is below. Could one of you nice guys recommend a fix for it??

    Set blah = Application.FileSearch
    With Application.FileSearch
        .NewSearch
        .Filename = "*VaR*"
        .LookIn = directory
        .LastModified = msoLastModifiedAnyTime
        .Execute msoSortByLastModified, msoSortOrderDescending
    End With
    If blah.FoundFiles.Count = 0 Then
    MsgBox "Has a report been generated?"
    Exit Function
    Else
    End If

 

[mlmcelligott]

More detail

Dim blah As FileSearch
    Dim directory As String
    Dim i As Integer, iNewest As Integer
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Risk Vertex Allocation")
    Dim LastMod As Object
   
    Sheets("VaR Works Export").Select
    MsgBox "Clearing Previous Portfolio Information"
  
     Sheets("VaR Works Export").Range("a4:h65536").ClearContents
     Sheets("VaR Works Export").Range("i5:w65536").ClearContents
    
    directory = "[URL="file://\\headfop006v\VarWorks"]\\headfop006v\VarWorks[/URL]"
    Set blah = Application.FileSearch
    With Application.FileSearch
        .NewSearch
        .Filename = "*VaR*"
        .LookIn = directory
        .LastModified = msoLastModifiedAnyTime
        .Execute msoSortByLastModified, msoSortOrderDescending
    End With
    If blah.FoundFiles.Count = 0 Then
    MsgBox "Has a VaR export report been generated?"
    Exit Sub
    Else
    End If