AnsweredAssumed Answered

Pack & Go saves lowercase file names

Question asked by Michael Chamerski on Jun 20, 2017
Latest reply on May 5, 2018 by Mohammad Darabseh

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?

Outcomes