With Application.FileSearch Hatası ile ilgili

[keremd]

Merhaba arkdaşlar,

Ofis 2003 te kullandığım makro'yu, ofis 2007 de kullanmak istediğimde
With Application.FileSearch Run-time error '445': hatası alıyorum.
Öğrendiğime göre bu kod 2007 de desteklenmiyormuş. Araştırdığım komutları denedim fakat bir türlü başaramadım.
Bu kullandığım makro ile Test klasöründeki dosyaları birer birer açıp istediğim verileri alıyorum.
Bu makroyu 2007 göre nasıl değiştirmem gerekiyor?

Teşekkürler.

Sub continue()

MyPath = ActiveWorkbook.Path & "\Tests"
MyWorkbook = ActiveWorkbook.Name
ChDir MyPath
With Application.FileSearch
.LookIn = MyPath
.FileType = msoFileTypeAllFiles
.Execute
NumberFiles = .FoundFiles.Count
End With
Mytest = Dir(MyPath & "\*.*")
i = 1
Do
'Process.Label1.Caption = "File " & i & " of " & NumberFiles
'Application.Visible = False
Application.Caption = "File " & i & " of " & NumberFiles
'Process.Label1.Caption = "File " & i & " of " & NumberFiles
Workbooks.OpenText FileName:= _
(MyPath & "\" & Mytest), Origin:=xlMSDOS, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, Comma:=False, _
Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3 _
, 1), Array(4, 1), Array(5, 1), Array(6, 1))

 

[Korhan Ayhan]

Merhaba,

Bu konuyla güzel bilgiler aşağıdaki linkte verilmiş. İncelermisiniz.

"Alt Klasörleri" ve "Alt Klasörlerdeki Tüm Dosyaları" Listeleme