7 Replies Latest reply on Apr 14, 2016 12:12 PM by Damon Frashure Branched to a new discussion.

    shell.application multiple file selection

    Damon Frashure

      I have a macro that pulls all the files from a directory and does stuff to them.  I would like to modify the macro though to allow me to select particular files within a directory. Below is the section of code that pulls files in from the shell application but I can't find a way create a multiselect dialog box in this.  Does anyone have any thoughts or links they could send?



              filter = "\*.sldprt"

              docType = swDocumentTypes_e.swDocPART


          Dim shellApp As Object

          Set shellApp = CreateObject("Shell.Application").BrowseForFolder(0, "Please select an input folder", 0, "")


          Dim inputPath As String

          inputPath = shellApp.Self.Path


          file = Dir(inputPath & filter)