Vista - Re: Compress Folder to a single file?

05-21-2008

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

05-21-2008

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 -

05-21-2008	#1
Tomy n/a posts	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:17pm, "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
Tomy n/a posts	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:56am, 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:17pm, "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

Similar Threads for: Re: Compress Folder to a single file?
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