Replacing Application.FileSearch command for Excel 2010

[wickitom]

I have this in a Macro

Dim oSearch As FileSearch

Set oSearch = Application.FileSearch
With oSearch
.NewSearch
.LookIn = strDirName
.SearchSubFolders = False
' For example, to search for text files change this line to:
' .FileName "*.txt"
.Filename = "*.csv"
.Execute
CountAllFiles = .FoundFiles.Count
End With
End Function

how do I do the same in Excel 2010. I had the code above for Excel 2002.
It basically looks in the directory counts the number of files with *csv and gives me the number of those files.

 

[Joe4]

Take a look at the links Glenn provided here:
http://www.mrexcel.com/forum/showthread.php?t=348269

There are numerous other discussions on this topic if you search this forum (search on "FileSearch 2007", that is when that functionality was taken away).

 

[heliorq]

Dears.
Ihave this sub in excel 203, but dont work in excel 2007 or 2010? Someone help me? thanks a lot in advanced.


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