• This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn more.

Re: Compress Folder to a single file?

T
#1
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
 

My Computer

T
#2
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 -
 

My Computer

Users Who Are Viewing This Thread (Users: 1, Guests: 0)