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

[Negan 1,300]

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

با این کد میتونید این کارو انجام بدید 

Sub Files(Dir As String) As List 
 Dim l,l2 As List : l.Initialize 
 l2 = File.ListFiles(Dir) 
 For i = 0 To l2.Size - 1 
  Dim fn,fa As String 
  fn = l2.Get(i) 
  fa = File.Combine(Dir,fn) 
  If File.IsDirectory(Dir,fn) Then 
   l.AddAll(Files(fa)) 
  else if fn.ToLowerCase.EndsWith(".pgk") Then 
   l.Add(fa) 
  End If 
 Next
Return l
End Sub

خب مشخصه دیگ تویج ایی ک میخواید لیست بگیرید اسم سابو مینویسید و یه مسیر میدی مثلا حافظه داخلی

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

کاملا مشخصه دیگ

@sadeghram