Application.FileSearch erro Excel 2007

[dfagundes]

Prezados,

Estou com o problema no comando "Set fs = Application.FileSearch" Pois em alguns dias utilizo o office 2003 e 2007, assim fico impossibilitado de utilizar no 2007 a seguinte macro.

' Efetua o loop para identificar todas as planilhas em .XLS

Set fs = Application.FileSearch ( Gostaria de algo similiar que possa executar da mesma maneira em ambos dos offices)

With fs

.LookIn = "C:\Documents and Settings\rubensantos\Desktop\teste\"

.SearchSubFolders = False

.Filename = "*.xls"

If .Execute() > 0 Then

For i = 1 To .FoundFiles.Count

Application.ScreenUpdating = False

Workbooks.Open Filename:=.FoundFiles(i)

'Entra uma gravação de uma macro que efetuei

' Aqui finaliza o código acima descrito.

Next i

Else

MsgBox "Nenhum arquivo foi encontrado."

End If

End With

Se alguém puder me ajudar com esta situação, pois sou leigo no assunto e tenho interesse para aprender.

Att,

Diogo Fagundes

[Helio Sales]

Olá colega,

Veja se isto ajuda:

====================

Sub GetFIleNames (StrPath)

Dim FolderLength As Integer

Dim fName As String

Dim objFSO As FileSystemObject

Dim objFolder As Folder

Dim objFile As File

Set objFSO = New FileSystemObject

Set objFolder = objFSO.GetFolder(StrPath)

For Each objFile In objFolder.Files

FolderLength = Len(StrPath) + 1

fName = Mid(objFile, FolderLength)

Next objFile

end sub

=====================

Fonte: http://www.access-programmers.co.uk/forums...ad.php?p=533068

Tambem tem alguma referência a este problema no suporte da MS:

http://support.microsoft.com/kb/935402