Converter Application.FileSearch

[Velela]

Olá!

Como pode ser convertido o código abaixo para Scripting.FileSystemObject?

Tenho esse código numa macro em Excel 2003 e agora que foi atualizado para Excel 2010 não consigo rodar:

Private Sub ler_dir()

nDir = Diretorio.Value

lenDir = Len(nDir)

FileType = "*.*"

Set pa = Application.FileSearch

With pa

.LookIn = nDir

.Filename = FileType '"*.*"

If .Execute > 0 Then

nFiles = .FoundFiles.Count

If nFiles > 0 Then

ReDim aArq(nFiles, 2)

For y = 1 To nFiles

nomeFile = .FoundFiles(y)

aArq(y, 1) = Mid(nomeFile, lenDir + 2, Len(nomeFile) - lenDir - 1)

aArq(y, 2) = .FoundFiles(y)

Next

End If

Else

MsgBox "Não foram localizados arquivos."

End

End If

End With

End Sub

Grato