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)