پیدا کردن فایل ها

[amir54 138]

سلام می خواستم برنامه ای درست کنم که فایل های مثل عکس رو اسم و ادرسش رو در یک لیست ویو نشون بدم لطفا راهنمایی کنید

[amir54 138]

سلام اگه میشه مثل این کتابخانه رو بفرستید http://answercenter.ir/topic/183-جست-و-جو-در-فایل/

با تشکر

[amir54 138]

انگار درست نگفتم بله اون کد فایل هایی عکس رو فقط در یک پوشه جست و جو می کند من می خوام تمامی پوشه های رم جدا از گوشی جست و جو بشه

[amir54 138]

مرسی از راهنمایی قبلی یه سوال دیگه هم داشتم من اگر بخوام  فایل های رو که عکس هستن(با اسم های متفاوت)  رو که در پوشه های رم جانبی هست جمع کنم و در یک پوشه بریزم چه کار باید بکنم هر چی گشتم نبود

[Elyas Erfani 3,582]

سلام

 

به این صورت میتونید لیست فایل هایی با پسوند مشخصو بگیرید

 

مثلا من اینجا توی پوشه Assets اومدم و لیست فایل های تصویری با فرمت jpg رو گرفتم

Dim List1 As List
      Dim n As Int
      Dim file1 As String
      Dim ListView1 As ListView
      ListView1.Initialize("ListView1")
      List1 = File.ListFiles (File.DirAssets)
      List1 .Sort (True)
    
      For n = 0 To List1 .Size-1
           file1 = List1.Get (n)
           If file1.EndsWith(".jpg") Then
              ListView1.AddSingleLine (file1)
           End If
      Next

[پژمان نیکروان 6,055]

مرسی از راهنمایی قبلی یه سوال دیگه هم داشتم من اگر بخوام  فایل های رو که عکس هستن(با اسم های متفاوت)  رو که در پوشه های رم جانبی هست جمع کنم و در یک پوشه بریزم چه کار باید بکنم هر چی گشتم نبود

با راهنمایی های آقا الیاس فرض رو بر این میگیریم که شما الان لیست فایل های مسیر file.dirAssets رو گرفتید و داخل list1 دارید.

با این تکه کد میتونید پوشه ایجاد کنید داخل حافظه خارجی:

File.MakeDir(File.DirRootExternal,"pooshe")

و برای کپی فایل هایی که به فرض داخل عبارت اسمشون کلمه pejman وجود داره:

For i=0 To list1.Size-1
	Dim temp As String=list1.Get(i)
	If temp.ToLowerCase.Contains("pejman")=True Then
		File.Copy(File.DirAssets,list1.Get(i),File.DirRootExternal&"/pooshe",list1.Get(i))
	End If
Next

میاد تک تک تمام فایل هارو چک میکنه که اگر داخل اسم فایل کلمه pejman وجود داشت ، از مسیر dirAssets کپیش میکنه به DirRootExternal&"/pooshe" ...