First you have to create an empty ZIP file named e.g. Empty.zip.
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
Set winShell = Nothing
Set fso = Nothing
On May 11, 5:17*pm, "Ahmad" <a...@xxxxxx> wrote:
> 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
> i just need any kind of scripts to make it in scheduled task
> but didn't work, any help ?
> A. Sabry