PDA

View Full Version : لیست فایل های با پسوند jpg


aleas2
دوشنبه 22 اردیبهشت 1393, 17:23 عصر
سلام خسته نباشید میخوام لیست فایل های با پسوند jpg در پوشه c:/new_image در لیست باکس نمایش بدم چطور اینکار باید بکنم؟
setroyd
دوشنبه 22 اردیبهشت 1393, 18:17 عصر
Private Sub Command1_Click()
a = Dir("c:\new_image\*.jpg")
Do While a <> ""
List1.AddItem a
a = Dir
Loop
End Sub




یه لیست باکس بزار و یه کامند کد رو ساده ی ساده نوشتم که متوجه شی خیلی راه برای پیدا کردن هست این یکیشه