Aşağıdaki kod ile ndi ekranında yahut Netsis dinamik kodlamada dosya açma penceresini açabilirsiniz. Güle güle kullanın.

Set DosyaAc = CreateObject(“UserAccounts.CommonDialog”)
DosyaAc.Filter = “Excel Dosyası*.xl*Tüm Dosyalar*.*”
DosyaAc.FilterIndex = 1
DosyaAc.InitialDir = “C:\”
DosyaPath = DosyaAc.ShowOpen
if Dosyapath0 then
Path.text = DosyaAc.FileName
end if
Set DosyaAc = Nothing