كيف يتم استعراض الملفات التي تنتهي بهذا الامتداد .bok

اخى الغالى

قم باضافه

الادوات التاليه

1. Drive
   
2. Dir
   
3. File
   

ثم اضف الكود التالى للفورم

Private Sub Dir1_Change()
	File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
	Dir1.Path = Drive1.Drive

End Sub

Private Sub Form_Load()

File1.Pattern = "*.BOK"

End Sub

كنت اريد اضافه المثال ولكن تلك الخاصيه معطله الان فى المنتدى