Windows Vista Forums

Re: Compress Folder to a single file?

  1. #1


    Tomy Guest

    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:

    > 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 SpecsSystem Spec

  2. #2


    Tomy Guest

    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:

    > 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 System SpecsSystem Spec

Re: Compress Folder to a single file?

Similar Threads
Thread Forum
Compress a Folder or File
How to Compress and Decompress a Folder or File with NTFS Compression in Vista and Windows 7 This will show you how to compress or decompress a...
Tutorials
Is it advisable to compress winsxs folder?
Hello. I'm running out of disk space and winsxs is already taking a lot of space. I already know that I should leave it alone. I was just...
Vista file management
Compress video file
I have messages stuck in my Outbox with a timeout message. I think it may be the attached video file -.wmv 13.1 MB. Anyone know how to compress...
Vista mail
How do I compress a folder using the File System Object?
I'm experimenting with setting folder attributes using the FSO. I've been able to set the other attributes but not compression. Shouldn't it be as...
VB Script
Re: Compress Folder to a single file?
Pegasus - you had me for a second... I was sitting there wondering what went wrong and realized the first problem. Let me explain... I normally do...
VB Script
Compress WAV file
My question seems very simple, but I can't seem to find an answer. I want to compress a 10MB WAV file to under 300KB. I tried using Sound...
Vista music pictures video
Re: Compress Folder to a single file?
On 11 Mai, 17:17, "Ahmad" <a...@xxxxxx> wrote: Drag and Drop the Files you wish to compress over this sample VBScript ...
VB Script