fotograf adedini label caption a yazdırmak

[hayalbert]

selam
ben userform a vakanın numarasına göre ilgili fotoğrafları otomatik olarak yükleyen bir makro kullanıyorum
ama ayrıca bu fotoğrafların altına o klasördeki fotoğraf adedini de bir label yardımı ile yazdırmak istiyorum
haluk beyin buna benzer bir makrosu vardı

Yol = "C:\proex\hasarfotograflari" & Application.PathSeparator & Range("A1")
ChDir (Yol)
ResimDosya = Dir("*.jpg")
Range("B:B").ClearContents
i = 2
While ResimDosya <> ""
Cells(i, 2) = ResimDosya
i = i + 1
ResimDosya = Dir
Wend
Label1.Caption = "Toplam " & i - 2 & " adet resim var."

onu kendime uydurmak istedim

Yol = "c:\proex\hasarfotograflari\" & textbox1.Text
ChDir (Yol)
resimdosya = Dir("*.jpg")
i = 2
While resimdosya <> ""
i = i + 1
resimdosya = Dir
Wend
Label1.Caption = "Toplam " & i - 2 & " adet resim var."

ama bu kod textbox a numarasını yazdığım klasörde hiç fotoğraf yoksa bile son aramada fotoğraf olduğu için sayabildiği adedi sonuç olarak bildiriyor

hatam ne acaba ?

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin. Yalnız bu kod klasör içindeki dosyaları uzantısını dikkate almadan sayacaktır.

[vb:1:1eb470a3fc]Label1 = CreateObject("Scripting.FileSystemObject").GetFolder("c:\proex\hasarfotograflari\" & textbox1.Text ).Files.Count
[/vb:1:1eb470a3fc]

 

[hayalbert]

teşekkür ederim