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?