AnsweredAssumed Answered

Pack & Go saves lowercase file names

Question asked by Michael Chamerski on Jun 20, 2017
Latest reply on May 7, 2020 by Steven Boege

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?