View Single Post
  #1  
Old 26-07-2010, 21:13
ager ager is offline
Member
 
Join Date: Jul 2010
Location: Russia
Posts: 44
Default Open file dialog

I’m trying to create Openfile dialog in VBA which allow to user select multifiles like in Excel VBA: .
It perform quite simple in Excel with function Application.GetOpenFilename(FileFilter:="All files (*.*), *.*", Title:="Get File", MultiSelect:=True). But in CorelDraw I know only one way to do this:
Code:
Set objDialog = CreateObject("UserAccounts.CommonDialog")
objDialog.Filter = "All Files|*.*"
objDialog.flags = &H200
objDialog.FilterIndex = 1
objDialog.InitialDir = "C:\My Documents\"
intFileCount = objDialog.ShowOpen
And old dialog window appears that do not support long file names:
The question is how to create normal Open-dialog window in CorelDraw VBA like in Excel?
Thank you!
Reply With Quote