Unable to set default file name in GetFilePath function

Hi All,

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? 

Parents
No Data
Reply
  • Hi Harshada,

    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
        Else
        	ShellBrowseForFolder = ""
        End If
    End Function
    

    Regards,

      W.

Children
No Data