Private Sub Find_Newest_Files(ByRef filelist() As Variant)
' Will use the worksheet passed as 'filelist_ws' to compile a list of the newest files in the current directory

Dim l_count As Long
Dim filename As String, place_n_item As String, last_place_n_item As String
Dim fl_index As Long

' Search for all the .txt files files in the current directory that match the filename pattern
With Application.FileSearch   <---- This is the part that doesn't work in 2007!!
    .NewSearch
    .LookIn = ThisWorkbook.Path
    .filename = "*-*-*.txt"
    If .Execute(SortBy:=msoSortByFileName, SortOrder:=msoSortOrderDescending) > 0 Then
        
        ' Resize the array to the largest we will need it
        ReDim filelist(1 To .FoundFiles.Count)
        fl_index = 0
        
        ' Cycle through each of the files that were found
        For l_count = 1 To .FoundFiles.Count
            
            ' Extract the filename from the foundfile path information
            filename = Mid(.FoundFiles(l_count), InStrRev(.FoundFiles(l_count), "\") + 1)
            ' extract the place and item from the filename
            place_n_item = Left(filename, InStrRev(filename, "-") - 1)
            
            ' If the place and item are the same as the previous file then this is older, otherwise it's a new file _
              and should be added to our filelist array
            If place_n_item <> last_place_n_item Then
                last_place_n_item = place_n_item
                fl_index = fl_index + 1
                filelist(fl_index) = .FoundFiles(l_count)
            End If
        Next
        ' If we added files to the filelist, then resize the list now to be only as big as we need. _
          If we didn't add any files then return the first item in the array as 0.
        If fl_index > 0 Then
            ReDim Preserve filelist(1 To fl_index)
        Else
            filelist = [{0}]
        End If
    Else
        filelist = [{0}]
    End If
End With
End Sub

 Dim fs
 Set fs = CreateObject("Scripting.FileSystemObject")
 
 With fs
  ' do ur stuff here
 End with

Function FilePathSearch2007(ByRef found_files() As Variant, path_to_search As String, Optional file_filter As String = "*.*", Optional sorttype As XlSortOrder = xlAscending) As Boolean
' Will search for files matching the pattern in path_to_search.
' If files are found then they are placed into the dynamic array 'found_files' passed to the function, and TRUE is returned
' If no files are found then FALSE is returned
Dim filename As String
Dim tempfile As String
Dim index1 As Long, index2 As Long
Dim index As Long

' If not trailing "\" then add one
If Right(path_to_search, 1) <> "\" Then path_to_search = path_to_search & "\"

filename = Dir(path_to_search & file_filter)
If filename = "" Then
    FilePathSearch2007 = False
    Exit Function
End If
' Size the found_array so that we 'should' get all the results in
ReDim found_files(1 To 100)
index = 1
found_files(index) = path_to_search & filename
Do
    filename = Dir
    If filename = "" Then Exit Do
    If index Mod 100 = 0 Then ReDim Preserve found_files(1 To index + 100)
    index = index + 1
    found_files(index) = path_to_search & filename
Loop
ReDim Preserve found_files(1 To index)

'Sort it
For index1 = 1 To UBound(found_files)
    For index2 = index1 To UBound(found_files)
        tempfile = found_files(index1)
        Select Case sorttype
            Case xlAscending
                If tempfile > found_files(index2) Then
                    found_files(index1) = found_files(index2)
                    found_files(index2) = tempfile
                End If
            Case xlDescending
                If tempfile < found_files(index2) Then
                    found_files(index1) = found_files(index2)
                    found_files(index2) = tempfile
                End If
        End Select
    Next
Next
FilePathSearch2007 = True
End Function

Heimatar-Isogen-2009.07.02 173049.txt