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:

> 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

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:

> 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:
>
>
>

> > 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- Hide quoted text -

>
> - Show quoted text -