Problem with File dialog box.

[AnilKumar]

I am using following code to display a file dialog box..

dim cdl1
dim txtfile
set cdl1 = createobject("MSComDlg.CommonDialog&quot
cdl1.showOpen
txtFile = cdl1.filename
msgbox txtfile

when I tried to run this code , it gives "The Common dialog function failed during initialisation" error.
please help me to fix this problem.
Thanks,
anil.

 

[silvers5]

try to filter the files by setting the maxfile size:

dim cdl1
dim txtfile
set cdl1 = createobject("MSComDlg.CommonDialog&quot
cdl1.MaxFileSize = 10000 '(restricted to files lesser than 10k)
cdl1.ShowOpen()
txtFile = cdl1.filename
msgbox txtfile

 

[silvers5]

Sorry the maxfile size gives the size of the cache file to store filenames.. in KB.. 10000 = 10000Kb