با سپاس فراوان 

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

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

 

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 میکنه و گفتیم اگه پوشه وجود داشت برو توی پوشه و لیست فایل های اونم بگیر و بازم اگه فولدر بود برو تو کاملا مشخصه دیگه

امید وارم مفید واقع گردد.