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