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.   


  3. #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 Tutorials
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