Menu
When zipping all files in a folder i get an error
'''''Create empty Zip File
NewZip (FileNameZip)
Set oApp = CreateObject("Shell.Application")
'''''Copy the files to the compressed folder
oApp.Namespace(FileNameZip).CopyHere oApp.Namespace(FolderName).items ''error here
Error: c:...\Jørgen.doc cannot be compressed because it includes characters that cannot be in a compressed folder, such as ø. You should rename this file or directory.
However if i navigate to the file and manually copy it to the zip folder it works no problem. Is there a way to get round this error in my vba code
245
Some characters are not permitted when compressing files. Therefore, make sure your file does not contain symbols like “@,” “£,” “♥,” “§,” and similar. Beware that files inside should not hold such symbols either, so you might have to rename a lot… which might be tiring.
Zip VBA Macro But just modify the input parameters in it, before hitting F5. In some cases, you might get Object or variable not defined error, if you have not followed the exact order of code or missed any line mentioned above. Once the code executes successfully, you will get a zip file.
Press and hold (or right-click) the file or folder, select (or point to) Send to, and then select Compressed (zipped) folder. A new zipped folder with the same name is created in the same location.
It's already a standard feature in MacOS, but in Windows 10 you need to to the following:
Type "region" in the Start Menu search box
Open the Region and Language Control Panel
Click the Administrative tab on the top
In "Language for non-Unicode programes" section, click "Change system locale...".
Check "Beta: Use Unicode UTF-8 for worldwise language support."
Restart Windows and try again.
70
If you love us? You can donate to us via Paypal or buy me a coffee so we can maintain and grow! Thank you!
Donate Us With
