Using the CopyHere() method in VBS introduces several issues. I will post something related to WSkids answer as sadly i cannot use the comment function. ' delay until at least items at the top level are availableĭo Until objApp.NameSpace( target ).Items.Count + intSkipped = intSrcItems
IntSrcItems = objApp.NameSpace( source ).Items.Count ObjApp.NameSpace( target ).CopyHere objItem ' if this folder is empty, then skip it as it can't compress empty folders Set objFolder = objFSO.GetFolder( objItem.Path )
' Loop over items within folder and use CopyHere to put them into the zip folderįor Each objItem in objApp.NameSpace( source ).Items Set objApp = CreateObject( "Shell.Application" ) ' this is the header to designate a file as a zip Set zip = objFSO.OpenTextFile(target, 2, vbtrue) Set objFSO = CreateObject("Scripting.FileSystemObject") Here is the vbs code - Set Args = Wscript.Arguments It won't copy empty folders so be careful. Path to script, source folder, zip file to make (include. Usage: in the run box or command line put- "C:\zipper.vbs" "C:\folderToZip\" "C:\mynewzip.zip" The script was originally made for Windows XP, but it also works in Windows 7 圆4 Ultimate - no guarantee's if Windows will keep around the various Shell objects this uses. Copy and paste the script into a file with the extension ".vbs". The Archive name and parameters dialogue box (shown ) opens.I've combined this script from several different sources to suit my needs better. Click the Add icon at the top of the window or go to Commands | Add files to archive or press Alt + A. Select the file(s) or folder(s) press the Ctrl key to select multiple files/folders. Use the file browser to change directories to the location of the file(s) or folder(s) you want to compress. Go to Start | All Programs | WinRAR to start the program. In both cases you can use WinRAR to compress files. Another reason to compress a file is to email a large file to someone whose mail space does not allow receiving a file as large as the uncompressed version. You can put archive files on a floppy disk, a ZIP disk, a flash drive, a CD or DVD, as well as leaving them on the local hard drive or network drive.
Click OK.īecause disk quota is always a finite resource, you may find that you need to archive files to free up space for other files. Select the folder to save in and set the Update and Overwrite modes. If you select Extract files., the Extraction path and options dialogue box (shown) opens.
0 kommentar(er)
