6 Replies Latest reply on Apr 17, 2018 9:14 PM by William Miller

    How to see parent folders in a folder browser dialogue?

    William Miller

      Hello all,

       

      I currently am running a macro that opens a folder browser dialogue that has a root folder as the currently open drawing's containing folder. When I use the code below, I cannot see any parent folders however. Is there a way to change this?

      'Both arguements are optional. The first is the dialog caption and the second is is to specify the top-most visible folder in the hierarchy. The default is "My Computer."
      Function SelectFolder(Optional Title As String, Optional TopFolder As String) As String
          Dim objShell As New Shell32.Shell
          Dim objFolder As Shell32.Folder
      
      
          'If you use 16384 instead of 1 on the next line, files are also displayed
          Set objFolder = objShell.BrowseForFolder(0, Title, 1, TopFolder)
          If Not objFolder Is Nothing Then
              SelectFolder = objFolder.Items.Item.Path
          End If
      End Function
      

       

      I come up with something like this, but I can't the containing folder (or any more after that) of TEST FILES: