Forumda çok güzel projeler inceleme imkanı buluyorum. Fakat dosya açma diyaloğuyla ilgili epeyce sıkan API ye alternatif yolu önermek istiyorum.

Sadece "Aç" değil "Kaydet", "Renk", "Font" diyalogları da çağırılabilir. Elbette diğer argumanları nesneyi CreateObject ile çağırdığınızda göremezsiniz.

İlgili referans dosyası "COMDLG32.OCX" tir.

[code]
Sub Test()
Set dlg = CreateObject("MSComDlg.CommonDialog")

'// Filter syntax: İsim |filtre|
strFilter = "Access dosyası (*.mdb)|*.mdb|"