Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Dim FolderName As String
- FolderName = "C:\Users\CMP\Desktop\"
- CreateEmptyZip "C:\test\test.zip"
- With CreateObject("Shell.Application")
- .NameSpace("C:\test\test.zip").CopyHere .NameSpace(FolderName).Items
- End With
Add Comment
Please, Sign In to add comment