I’m using Erstudio 18.5 and since the upgrade from 18.0, the default file name (1st parameter) in GetFilePath function from macro is not working.
The intent is to get the folder location to save the files that are being generated through macro. The default file name makes it easy to select just the folder and user don’t need to worry about the file name as the macro coding does that work while generation of files.
Does anyone know how to resolve this?
I don't know how it was working with previous release, but if you generate yourself the filename, you can prompt the user to only pick up the folder using this function:
Function ShellBrowseForFolder() As String
Const BIF_RETURNONLYFSDIRS As Long = &H1
Dim objShell As Object
Dim objFolder As Object
Set objShell = CreateObject("shell.application")
Set objFolder = objShell.BrowseForFolder(0, "YOUR_OWN_TITLE", BIF_RETURNONLYFSDIRS, "")
If (Not objFolder Is Nothing) Then
ShellBrowseForFolder = objFolder.Items.Item.Path
ShellBrowseForFolder = ""
Powered by IDERA