excel 2007 de filesearch yerine kullanılacak komut

[gemilim]

arkadaşlar bir klasörün içindeki dosyaları tarasın diye ofis xp de yaptığım makrodaki aşağıda yazılı
Set fs = Application.FileSearch

komutu için

445 nolu hata
object doesent support this action yazmakta çözümü nedir acaba

şimdiden teşkkürler
Mehmet

 

[cebir]

merhaba..

Set fs= CreateObject("Scripting.FileSystemObject")

şeklinde denermisiniz.

 

[gemilim]

z = "C:\Documents and Settings\"
Set fs = Application.FileSearch
With fs
.LookIn = z
.Filename = "*.xls"
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
MsgBox "Toplam " & .FoundFiles.Count & _
" dosya bulundu."
For i = 1 To .FoundFiles.Count

' MsgBox .FoundFiles(i)
A$ = .FoundFiles(i)

komutlaın tamamı bu. sizin dediğiniz komutu yazınca, bu seferde ".lookin=z" de sorun çıkıyor.
nedendir acaba

yardımlrınız için şimdiden teşekkürler

 

[Zeki Gürsoy]

Daha önce de bu tip soruyla karşılaşmıştım. Sanırım 2007 versiyonunda "FileSearch" mevcut değil.

Arşivlediğim alternatif metot,
.

 

[tamer42]

Sn Zeki Gürsoy Merhabalar,

.............
Set fL = CreateObject("Scripting.FileSystemObject").GetFolder(yol).SubFolders

For Each f In fL
    [B]dosya = Dir(f.Path & "\" & TextBox1.Text)[/B]
    
    While dosya <> ""
        ListBox1.AddItem dosya
...............
................

verdiğiniz kodlarla klasördeki tüm dosyalar listeleniyor, sadece (*.txt) yada (*.xls) dosyalarını almak istersek nasıl bir yol izlenebilir?

Birde Office 2007 de FileSearch neden çalışmıyor? Acaba bir kütüphane falan mı eksik dir?

İyi Çalışmalar.

 

[Haluk]

.........

verdiğiniz kodlarla klasördeki tüm dosyalar listeleniyor, sadece (*.txt) yada (*.xls) dosyalarını almak istersek nasıl bir yol izlenebilir?

Aşağıdaki linke göz atın, işinize yarayacaktır...


http://www.excel.web.tr/showthread.php?t=4518


.

 

[hsayar]

Daha önce de bu tip soruyla karşılaşmıştım. Sanırım 2007 versiyonunda "FileSearch" mevcut değil.

Arşivlediğim alternatif metot,
.

Zeki Hocam elleriniz sağlık, dosya ara butonundaki kodlarda, Listbox a sadece bulunan dosyalar geliyor, ikinci bir kolon eklesekte oraya dosyanın bulunduğu klasörün yolu gelse mümkün mü?