comando VBA "Application.FileSearch" no excel 2003 abaixo nã

[wagnergcampos]

Pessoal,

O comando VBA "Application.FileSearch" no excel 2003 abaixo não funciona no novo excel 2007

Ocorre a mensagem de erro:

ERRO '445'

"objeto não aceita essa ação"

:huh: :blink:

--------------------------------------------------------------

Function FileExists(FileName As String) As Boolean
Dim Path As String
Path = ExtractFilePath(FileName)
FileName = ExtractFileName(FileName)
With Application.FileSearch
    .NewSearch
    .LookIn = Path
    .FileName = FileName
    .MatchTextExactly = False
    FileExists = .Execute() > 0
End With
End Function

Como proceder nesse caso? Há alguma conversão ou alteração nesse comando?

Agradeço desde já,

Wagner

Editado Agosto 30, 2010 por kuroi
Adicionar tag CODE

[kuroi]

parece q essa propriedade não existe mais no excel 2007.

mas existem alternativas, aqui: http://www.google.com.br/search?q=filesearch+excel+2007

[wagnergcampos]

Obrigao pela dica. Mas achei a resposta conforme abaixo:

:rolleyes:

'essa função deu problema com o advento do excel 2007
Function FileExists(FileName As String) As Boolean
Dim Path As String

Path = ExtractFilePath(FileName)
FileName = ExtractFileName(FileName)
'---------------------------------------------------
'aqui o pulo do gato
'fonte:
'http://www.ativoaccess.com.br/forum/index.php?showtopic=462&pid=1876&st=0&#entry1876
Dim fs As FileSystemObject
Set fs = CreateObject("Scripting.filesystemobject")
FileExists = fs.FileExists(FileName)
End Function
'---------------------------------------------------
'aqui está o comando (vindo excel 2003) que não dá mais certo no excel 2007
'With Application.FileSearch
'    .NewSearch
'    .LookIn = Path
'    .FileName = FileName
'    .MatchTextExactly = False
'    FileExists = .Execute() > 0
'End With
'End Function
'teste recomendado no forum

Editado Agosto 31, 2010 por kuroi
Adicionar tag CODE