جستجو برای پیدا کردن تمامی فایل ها به همراه آدرس آنها از (پسوند خاص مثل عکس) برنامه

[M.KH-SH]

سلام بچه ها
خسته نباشین
یک کد نیاز دارم که بشه با اون تمام فایل های jpg رو برام از توی کامپیوتر پیدا کنه
دقیقا مثل سرچ کامپیوتر ولی میخوام این کار رو از طریق برنامه انجام بدم.
خیلی ضروری هستش.

ممنون از همکاریتون.

[arash020]

سلام
یه کدی داشتم به این مضمون :

''For Each drive As String In IO.Directory.GetLogicalDrives

'' Try


'' For Each directory As String In IO.Directory.GetDirectories(drive)

'' Dim dirinfo As New IO.DirectoryInfo(directory)

'' If dirinfo.Attributes = 22 Or dirinfo.Attributes = 8211 Then

'' Continue For
'' End If

'' For Each file As String In IO.Directory.GetFiles(dirinfo.FullName, "*.txt", IO.SearchOption.AllDirectories)

'' Me.ListBox1.Items.Add(file)
'' Me.ListBox1.Refresh()
'' Next
'' Next
'' Catch ex As Exception

'' 'Do Nothing!
'' End Try
''Next

' هاشو حذف کن خوذت...
یه textbox و یه listbox به فرمت بیفزا و کد رو توی button فرمت paste کن

امیدوارم کمک کرده باشم...
موفق باشی