|
 |  |  |  |  |  |  |
| Welcome to Windows Vista Forums. Our forum is dedicated to helping you find solutions with any problems, errors or issues you are experiencing with Windows Vista. The Vista forum also covers news and updates and has an extensive Windows Vista tutorial section that covers a wide range of tips and tricks. |
| |||||||
 |
| |
05-21-2008
| #1 (permalink) |
| | Re: Compress Folder to a single file? First you have to create an empty ZIP file named e.g. Empty.zip. Then: Dim fso, winShell, MyTarget, MySource Set fso = CreateObject("Scripting.FileSystemObject") MySource = "c:\folder_to_zip" MyTarget = "c:\zipped_folder.zip" fso.CopyFile "Empty.zip", MySource Set winShell = createObject("shell.application") winShell.namespace(MyTarget).CopyHere MySource ' <-- This is the COMMAND Set winShell = Nothing Set fso = Nothing Tomy On May 11, 5:17*pm, "Ahmad" <a...@xxxxxx> wrote: Quote: > Dear sir, > I've some backed up files from variuous locations stored in a folder c:\data > and i want to back fiels in that folder to a single file c:\data.zip > > i used : > -============ > strComputer = "." > Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") > Set colFolders = objWMIService.ExecQuery _ > * * ("Select * From Win32_Directory Where Name = 'C:\DBsBackup'") > For Each objFolder in colFolders > * * errResults = objFolder.Compress > Next > -============ > i just need any kind of scripts to make it in scheduled task > but didn't work, any help ? > > thanks > A. Sabry |
My System Specs |
|
05-21-2008
| #2 (permalink) |
| | Re: Compress Folder to a single file? Correction: Dim fso, winShell, MyTarget, MySource Set fso = CreateObject("Scripting.FileSystemObject") MySource = "c:\folder_to_zip" MyTarget = "c:\zipped_folder.zip" fso.CopyFile "Empty.zip", MyTarget Set winShell = createObject("shell.application") winShell.namespace(MyTarget).CopyHere MySource ' <-- This is IT Set winShell = Nothing Set fso = Nothing On May 21, 9:56*am, Tomy <Jan.Tomsa.1...@xxxxxx> wrote: Quote: > First you have to create an empty ZIP file named e.g. Empty.zip. > Then: > > Dim fso, winShell, MyTarget, MySource > Set fso *= CreateObject("Scripting.FileSystemObject") > MySource = "c:\folder_to_zip" > MyTarget = "c:\zipped_folder.zip" > fso.CopyFile "Empty.zip", MySource > Set winShell = createObject("shell.application") > > winShell.namespace(MyTarget).CopyHere MySource *' <-- This is the > COMMAND > > Set winShell = Nothing > Set fso = Nothing > > Tomy > > On May 11, 5:17*pm, "Ahmad" <a...@xxxxxx> wrote: > > > Quote: > > Dear sir, > > I've some backed up files from variuous locations stored in a folder c:\data > > and i want to back fiels in that folder to a single file c:\data.zip Quote: > > i used : > > -============ > > strComputer = "." > > Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") > > Set colFolders = objWMIService.ExecQuery _ > > * * ("Select * From Win32_Directory Where Name = 'C:\DBsBackup'") > > For Each objFolder in colFolders > > * * errResults = objFolder.Compress > > Next > > -============ > > i just need any kind of scripts to make it in scheduled task > > but didn't work, any help ? Quote: > > thanks > > A. Sabry- Hide quoted text - > - Show quoted text - |
| My System Specs |
|
| Thread Tools | |
| |
Similar Threads | ||||
| Thread | Forum | |||
| Is it advisable to compress winsxs folder? | Vista file management | |||
| How do I compress a folder using the File System Object? | VB Script | |||
| Re: Compress Folder to a single file? | VB Script | |||
| Re: Compress Folder to a single file? | VB Script | |||
| Compress a Folder or File | Tutorials | |||
