[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]
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.