Common dialog control

You need a [b]design-time[/b] license for the “Common Dialog Control”. This design time license comes together with VB 6.0, unfortunately not with VBA.
So if you have VB installed on your system you can use the control also in VBA. If you redistribute a VBA project which uses the control and you simply install (copy+register) the control on the target machine it will work fine at [b]run-time[/b]. On the other hand you will not be able to add a new instance of the control on the target machine.

To get the dialog box without the “Common Dialog Control” is possible, as the functionality is provided by a Windows API. This requires some more work, see for instance [url]http://www.activevb.de/tipps/vb6tipps/tipp0368.html[/url] for a VB-example. This should basically work also with VBA.

Support
support@weisang.com

This is possible, because Word and Excel have (re-)implemented the Open-File-dialog-box functionality in their object model. As this is a rather generic functionality it is currently missing from the object model of FlexPro 7.0 (of cause it might be added in a future version).
As pointed out before it is no problem to use the Windows API directly. If you prefer an OCX based approach you might take a look at the pages of the Common Controls Replacement Project, especially at [url]http://ccrp.mvps.org/controls/ccrpfiledlg5.htm[/url].

Support
support@weisang.com

The API method from the page [url]http://www.activevb.de/tipps/vb6tipps/tipp0368.html[/url] you refer to is not working because of:

[img]uid4536_Fehler_MehWnd.png[/img]

What is an alternative handle, which works?

Hi,
finally I was successful. For all of you having the same problems here the code for opening a common dialog windows for files and for folders.

[code]Private Declare Function GetOpenFileName Lib “comdlg32.dll” _
Alias “GetOpenFileNameA” (pOpenfilename As OPENFILENAME) _
As Long

Declare Function SHGetPathFromIDList Lib “shell32.dll” _
Alias “SHGetPathFromIDListA” (ByVal pidl As Long, _
ByVal pszPath As String) As Long

Declare Function SHBrowseForFolder Lib “shell32.dll” _
Alias “SHBrowseForFolderA” (lpBrowseInfo As BROWSEINFO) As Long

Private Type OPENFILENAME
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustFilter As Long
nFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
Flags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type

Public Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pszDisplayName As String
lpszTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long
End Type

Public Const OFN_ALLOWMULTISELECT As Long = &H200&
Public Const OFN_CREATEPROMPT As Long = &H2000&
Public Const OFN_ENABLEHOOK As Long = &H20&
Public Const OFN_ENABLETEMPLATE As Long = &H40&
Public Const OFN_ENABLETEMPLATEHANDLE As Long = &H80&
Public Const OFN_EXPLORER As Long = &H80000
Public Const OFN_EXTENSIONDIFFERENT As Long = &H400&
Public Const OFN_FILEMUSTEXIST As Long = &H1000&
Public Const OFN_HIDEREADONLY As Long = &H4&
Public Const OFN_LONGNAMES As Long = &H200000
Public Const OFN_NOCHANGEDIR As Long = &H8&
Public Const OFN_NODEREFERENCELINKS As Long = &H100000
Public Const OFN_NOLONGNAMES As Long = &H40000
Public Const OFN_NONETWORKBUTTON As Long = &H20000
Public Const OFN_NOREADONLYRETURN As Long = &H8000&
Public Const OFN_NOTESTFILECREATE As Long = &H10000
Public Const OFN_NOVALIDATE As Long = &H100&
Public Const OFN_OVERWRITEPROMPT As Long = &H2&
Public Const OFN_PATHMUSTEXIST As Long = &H800&
Public Const OFN_READONLY As Long = &H1&
Public Const OFN_SHAREAWARE As Long = &H4000&
Public Const OFN_SHAREFALLTHROUGH As Long = 2&
Public Const OFN_SHARENOWARN As Long = 1&
Public Const OFN_SHAREWARN As Long = 0&
Public Const OFN_SHOWHELP As Long = &H10&

Public Function ShowOpen(Filter As String, Flags As Long, hWnd As Long) As String

Dim Buffer As String
Dim Result As Long
Dim ComDlgOpenFileName As OPENFILENAME

Buffer = String$(128, 0)

With ComDlgOpenFileName
.lStructSize = Len(ComDlgOpenFileName)
.hwndOwner = hWnd
.Flags = Flags
.nFilterIndex = 1&
.nMaxFile = Len(Buffer)
.lpstrFile = Buffer
.lpstrFilter = Filter
End With

Result = GetOpenFileName(ComDlgOpenFileName)

If Result 0 Then
ShowOpen = Left$(ComDlgOpenFileName.lpstrFile, _
InStr(ComDlgOpenFileName.lpstrFile, _
Chr$(0)) – 1)
End If
End Function

Function GetDirectory(Msg) As String
Dim bInfo As BROWSEINFO
Dim path As String
Dim r As Long, x As Long, pos As Integer
With bInfo
.pidlRoot = 0&
.lpszTitle = Msg
.ulFlags = &H1
End With
x = SHBrowseForFolder(bInfo)
path = Space$(512)
r = SHGetPathFromIDList(ByVal x, ByVal path)
If r Then
pos = InStr(path, Chr$(0))
GetDirectory = Left(path, pos – 1)
Else
GetDirectory = “”
End If
End Function

Sub ProgramStart()

‘——– Choose a File—————-
Dim sFile As String

Dim Filter As String, Flags As Long

Flags = OFN_FILEMUSTEXIST Or OFN_HIDEREADONLY Or _
OFN_PATHMUSTEXIST
Filter = “FlexPro (*.fpd)”

sFile = ShowOpen(Filter, Flags, 0)
‘——————————————

‘——-Choose a Folder————-

Dim sFolder As String

sFolder = GetDirectory(“Choose a Folder”)
‘—————————————
End Sub

[/code]