I have a sub that works in excel 2003 but not works in excel 2007 error: With Application.FileSearch

[heliorq]

Dear friends. I have a sub in a macro excel, that works weel in 2003, but not works in excel 2007 or 2010, apper to depure when get the line : With Application.FileSearch .
Thanks for any help.

the sub is :

Sub MostraPADTEC()


    Range("15:16").Select
    Selection.EntireRow.Hidden = False


    Range("29:34").Select
    Selection.EntireRow.Hidden = False
     
    Range("17:22,23:28").Select
    Selection.EntireRow.Hidden = True
    Range("B30").Select
    
Dim Classeurs() As String, I As Long, Aux1 As Integer
With Application.FileSearch
      .NewSearch
     .FileType = msoFileTypeExcelWorkbooks ' p/ excel
     '.FileType = msoFileTypeWordDocuments ' p/ word
     '.FileType = msoFileTypePowerPointPresentations 'p/powerpoint
     '.FileType = msoFileTypeOfficeFiles    ' p/ todos
      .Filename = "*.*" 'p/ txt
      .LookIn = "C:\CIGR-DWDM\NIVEIS ÓPTICOS\SAPO\Entrada\PADTEC"   ' localiza os arquivos contidos em C:\
      .SearchSubFolders = True
      .Execute
With .FoundFiles
      ReDim Classeurs(1 To .Count, 1 To 2)
      For I = 1 To .Count
            Aux1 = Len(.Item(I)) - InStr(1, StrReverse(.Item(I)), "\")
            Classeurs(I, 1) = Mid(.Item(I), 1, Aux1 + 1)
            Classeurs(I, 2) = Mid(.Item(I), Aux1 + 2)
      Next I
Application.ScreenUpdating = True
With Range("AC1000").Resize(.Count, 2)
      .Value = Classeurs
      .Sort [AC1000]
Range("A15").Select
End With
End With
End With


Range("B30:E30").Select
Selection.ClearContents
Range("B30").Select
     
End Sub

---------------------
next sub is :

 

[pbornemeier]

The FileSearch method was removed in Office2007 and later.
This post discusses an alternate:
http://www.mrexcel.com/forum/excel-...tions-replacement-application-filesearch.html