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)
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?