Klasörün içinde kaç adet jpg uzantılı dosya var ?

[Orion1]

Merhabalar.
C:\Evren\Resimler klasörü içinde kaç tane jpg uzantılı dosya var ?
Teşekkür ederim.
İyi çalışmalar.
:hey:

 

[Recep İpek]

Merhaba,

Aşağıdaki kodları deneyebilirmisiniz?

Kolay Gelsin.

[vb:1:94e60d6abe]
Sub jpgbul()
Dim Dosya
Dim i As Integer
Dosya = Dir("C:\Evren\Resimler\*.jpg")
i = 1
While Dosya <> ""
Dosya = Dir
Cells(i, 1) = Dosya
i = i + 1
Wend
MsgBox i - 1
End Sub[/vb:1:94e60d6abe]