FileSearch Routines

Routine to build an array of filenames in a directory

Dim strPath as String

Dim intFC as Integer

Dim strFNames() as String

strPath = pathname

With Application.FileSearch

.NewSearch

.LookIn = strPath

.FileType = msoFileTypeExcelWorkbooks

.Execute = msoSortByFileName

If .FoundFiles.Count > 0 Then

For intFC = 0 To .FoundFiles.Count – 1

ReDim Preserve strFNames(intFC)

strFNames(intFC) = .FoundFiles(intFC + 1)

Next intFC

Else

ReDim Preserve strFNames(0)

End If

End With