I have this pack and go macro fo Folder. When I do it, however, the big letters become small. Does anyone have any idea how to keep the letters large?
Thanks a lot n advance
Looks like its hitting SPR 634627 - PackAndGo::GetDocumentNames always gets all paths and filenames in lower-case.
You can use Ucase function to make all letters to upper case.
If you have any workflow which depends on case-sensitivity of files stored in a Windows type environment, you should change it.
When I set UCase it is not working
When I use Pack and Go with the Explorer, I do not have this case?
I've had success adding this to the end of my pack and go code, change 'myPath' to wherever you are saving your files to.
Dim file As Variant file = Dir(myPath & "\") While (file <> "") Name myPath & "\" & file As UCase(myPath & "\" & file) file = Dir() Wend
Hello Ryan Gaudreau
thank you for answer.
Where did you placed this code?
I tryed it, but it ist still same
Try adding it after your last line of code, before the End Sub line. I found it on a forum discussing Windows VBA to rename files names to uppercase, that I copied to the end of my code. Change 'myPath' to whatever variable you are using for your folder location. I'm not an expert, I just found that Windows code to insert into my macro. I have that thread posted below for you to look at yourself so you can see where it came from.
[Solved] Change all PDF filename in Excel from lowercase to UPPERCASE
thanks a lot for your answer. Bit it is still not working. I think it is about my windows 10.
Const OUTPUT_FOLDER As String = "C:\Users\franz\Desktop\Temp-Suter" Sub main() Dim swApp As SldWorks.SldWorks Dim swModel As SldWorks.ModelDoc2 Set swApp = Application.SldWorks Set swModel = swApp.ActiveDoc Dim strOutputFolder As String strOutputFolder = OUTPUT_FOLDER If SaveAsPackAndGo(swApp, swModel, strOutputFolder) = False Then Exit Sub Function SaveAsPackAndGo(swApp As SldWorks.SldWorks, _ swModel As SldWorks.ModelDoc2, strOutputFolder As String) As Boolean On Error GoTo ErrHandler Dim swPackAndGo As SldWorks.PackAndGo Dim intDocCount As Integer
Dim file As Variantfile = Dir(OUTPUT_FOLDER & "\")While (file <> "")Name OUTPUT_FOLDER & "\" & file As UCase(OUTPUT_FOLDER & "\" & file)file = Dir()WendEnd Sub
thanks a lot for answer.
Can you add the hole macro? I can not make it running..
thank you for your solution.
It is working now, but it looks like this:
I would like, if both are same
Retrieving data ...