Application.FileSearch Satırında Run Time Error 445 hatası ?

[hsayar]

Ekli örnek dosyada kod içerisinde belirtilen D sürücüsündeki xls uzantılı dosyaları a sutununa listeler (alt klasörler de dahil)
Bu listelemeye birde link verdirebilirsek, ayrıca D sürücüsü yerine bütün sürücülerde aramasını sağlayabilrsek sanırım istediğiniz olalcak.
Üstatlarımız kodu geliştirebilirler.

http://www.excel.web.tr/attachment.php?attachmentid=48811&d=1221095354
http://img204.imageshack.us/img204/6272/hata445tn5.jpg

Function CreateFileList(FileFilter As String, IncludeSubFolder As Boolean) As Variant
Dim FileList() As String, FileCount As Long
CreateFileList = ""
Erase FileList
With Application.FileSearch
.NewSearch
.LookIn = "D:\"
.Filename = FileFilter
.SearchSubFolders = IncludeSubFolder
If .Execute(SortBy:=msoSortByFileName, SortOrder:=msoSortOrderAscending) = 0 Then Exit Function
ReDim FileList(.FoundFiles.Count)
For FileCount = 1 To .FoundFiles.Count
FileList(FileCount) = .FoundFiles(FileCount)
Next
End With
CreateFileList = FileList
Erase FileList
End Function

yukarıdaki kodalrı çalıştırmak istediğimde Rt 445 hatası alıyorum sebebi nedir bilen var mı acaba; İşletim sistemi Vista, Ofis 2007

http://img204.imageshack.us/img204/6272/hata445tn5.jpg

 

[hamitcan]

Application.FileSearch fonksiyonu 2007'de mevcut değil. Konu ile ilgili daha önce ben bir başlık açmıştım.

 

[hsayar]

Alakanıza teşekkür ederim hocam, bir ara siteyi takip edemediğim için gözümden kaçmış.

 

[hsayar]

Çözüm burada imiş.
http://www.excel.web.tr/showthread.php?t=42497&highlight=Application.FileSearch+2007

Arayan kolay bulsun:
Application.FileSearch, Office2007, ofis2007, arama