Pack & Go saves lowercase file names

Hi all -

I'm having a bit of trouble trying to get proper case file names out of Pack and Go using a macro. I've gone through forum after forum trying to search for an answer (for example, using Dir() still doesn't fix the issue) and haven't been able to find a solution.

This is the code I'm using in my Pack & Go section:

Set swPackAndGo = swModelDocExt.GetPackAndGo

    namesCount = swPackAndGo.GetDocumentNamesCount

    ' Settings: Include any drawings and simulation results or others

    swPackAndGo.IncludeDrawings = True

    swPackAndGo.IncludeSimulationResults = True

    swPackAndGo.IncludeToolboxComponents = True

    ' Get current save-to-paths and filenames of the assembly's documents

    status = swPackAndGo.GetDocumentNames(pgFileNames)

    status = swPackAndGo.GetDocumentSaveToNames(pgFileNames, pgFileStatus)

   

    ' Folder where to save the files

    MyPath = "C:\temp\"

   

    ReDim pgSetFileNames(namesCount - 1)

   

    For i = 0 To (namesCount - 1)

            

             Dim myFileName As String

             ' pgFileNames(i) = Dir(pgFileNames(i))

             myFileName = Dir(pgFileNames(i))

   

             pgSetFileNames(i) = MyPath & myFileName

             Print #N, Now() & " Exporting: " & pgSetFileNames(i)

            

    Next i

   

    status = swPackAndGo.SetSaveToName(True, MyPath)

    ' swPackAndGo.FlattenToSingleFolder = True <-- Tried using this...still doesn't work.

    status = swPackAndGo.SetDocumentSaveToNames(pgSetFileNames)

    ' Pack and Go

    statuses = swModelDocExt.SavePackAndGo(swPackAndGo)

The interesting bit is that I get proper case file names when printing from pgSetFileNames, but for some reason either SetSaveToName or SetDocumentSaveToNames is formatting everything to lowercase. Anyone have ideas on how to proceed?

SolidworksApi macros