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?
Upon some further investigation, the culprit seems to be SaveToName. Manually performing these selections, I notice an "Ignore Case" checkbox that is always checked by default. As of now, I have yet to see possible setting for this through the API.
I'm trying to avoid using SaveToName by getting rid of IncludeDrawings, but this always results in no files being saved whatsoever. No matter what I do, it seems I NEED to use SaveToName.