|
|
|
date: Sun, 11 May 2008 18:17:25 +0300,
group: microsoft.public.scripting.hosting
back
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 this from
the send-to menu. So, right click your C:\Test folder and scroll to the
'Send To' menu and then select 'Compressed (zipped) folder'. That is the
direct execution of the compress verb. That will generate a zipped folder..
but, if you have one of the zip variants installed you may not be able to
see the Send To option that I am talking about. Again, I have to admit
you had me stumped for a second. I used to believe the two methods were
identical... I'll have to think about that one a bit.
Happy compressing...
BH
"Pegasus (MVP)" wrote in message
news:eLOYMWPuIHA.4492@TK2MSFTNGP02.phx.gbl...
>
> "Bob H" wrote in message
> news:ed1CYfOuIHA.1872@TK2MSFTNGP04.phx.gbl...
>> Two points -
>> 1 - (Pegasus) last time I looked, compressing a folder in XP (at
>> least) resulted in a zip archive. Windows attempts to hide that (or make
>> it invisible to the user), but if you look closer you should find the
>> same result on your system. I have used this fact on numerous
>> occasions.... also the question was not how to zip - though it almost
>> sounds that way at first. All he wanted to do was schedule the code he
>> has.
>
> Thanks for your feedback. To verify your claim, I tried this
> little experiment:
> - Create a folder c:\Test.
> - Populate it with a few files.
> - Launch "My Computer".
> - Right-click c:\Test, then click Properties, then Advanced.
> - Tick "Compress contents to save disk space", then OK, then Apply.
>
> The files in this folder are now compressed but there is no .zip file
> in sight. Each files is individually visible. The native WinXP compression
> method does not use the well-known zip-based compression
> facility but its own algorithm that stores each file in a compressed
> form.
>
> The "Compress" method used by the OP does the same thing,
> hence there is no .zip file.
>
> If you can generate a .zip file with the VB Script "Compress"
> method then I'd love to see your code.
>
>
date: Mon, 19 May 2008 20:31:17 -0400
author: Bob H
Re: Compress Folder to a single file?
The way I do it is to right-click on a folder, select New..., and select
"Compressed (zipped) folder". Behaves like a folder in windows explorer, but
is actually a .zip file.
/Al
"Bob H" wrote in message
news:e3QqZDhuIHA.3564@TK2MSFTNGP03.phx.gbl...
> 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
> this from the send-to menu. So, right click your C:\Test folder and
> scroll to the 'Send To' menu and then select 'Compressed (zipped) folder'.
> That is the direct execution of the compress verb. That will generate a
> zipped folder.. but, if you have one of the zip variants installed you may
> not be able to see the Send To option that I am talking about. Again, I
> have to admit you had me stumped for a second. I used to believe the two
> methods were identical... I'll have to think about that one a bit.
>
> Happy compressing...
> BH
>
> "Pegasus (MVP)" wrote in message
> news:eLOYMWPuIHA.4492@TK2MSFTNGP02.phx.gbl...
>>
>> "Bob H" wrote in message
>> news:ed1CYfOuIHA.1872@TK2MSFTNGP04.phx.gbl...
>>> Two points -
>>> 1 - (Pegasus) last time I looked, compressing a folder in XP (at
>>> least) resulted in a zip archive. Windows attempts to hide that (or
>>> make it invisible to the user), but if you look closer you should find
>>> the same result on your system. I have used this fact on numerous
>>> occasions.... also the question was not how to zip - though it almost
>>> sounds that way at first. All he wanted to do was schedule the code he
>>> has.
>>
>> Thanks for your feedback. To verify your claim, I tried this
>> little experiment:
>> - Create a folder c:\Test.
>> - Populate it with a few files.
>> - Launch "My Computer".
>> - Right-click c:\Test, then click Properties, then Advanced.
>> - Tick "Compress contents to save disk space", then OK, then Apply.
>>
>> The files in this folder are now compressed but there is no .zip file
>> in sight. Each files is individually visible. The native WinXP
>> compression
>> method does not use the well-known zip-based compression
>> facility but its own algorithm that stores each file in a compressed
>> form.
>>
>> The "Compress" method used by the OP does the same thing,
>> hence there is no .zip file.
>>
>> If you can generate a .zip file with the VB Script "Compress"
>> method then I'd love to see your code.
>>
>>
date: Mon, 19 May 2008 22:31:38 -0600
author: Al Dunbar aam
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 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...@dsf.c> 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 -
date: Wed, 21 May 2008 01:00:09 -0700 (PDT)
author: Tomy
Re: Compress Folder to a single file?
I also need to compress a folder to a file (.zip) on Windows. One shoul be
able to do it with winzip (similar to old pkzip, or compress on UNIX) from
command prompt (need a winzip modual download). A better way would be to use
net send command to do the same thing with "Send to compressed (zipped)
Folder" from command prompt. However, I do not know the syntax. If any one
knows, please share.
Thanks, Doug
"Bob H" wrote:
> 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 this from
> the send-to menu. So, right click your C:\Test folder and scroll to the
> 'Send To' menu and then select 'Compressed (zipped) folder'. That is the
> direct execution of the compress verb. That will generate a zipped folder..
> but, if you have one of the zip variants installed you may not be able to
> see the Send To option that I am talking about. Again, I have to admit
> you had me stumped for a second. I used to believe the two methods were
> identical... I'll have to think about that one a bit.
>
> Happy compressing...
> BH
>
> "Pegasus (MVP)" wrote in message
> news:eLOYMWPuIHA.4492@TK2MSFTNGP02.phx.gbl...
> >
> > "Bob H" wrote in message
> > news:ed1CYfOuIHA.1872@TK2MSFTNGP04.phx.gbl...
> >> Two points -
> >> 1 - (Pegasus) last time I looked, compressing a folder in XP (at
> >> least) resulted in a zip archive. Windows attempts to hide that (or make
> >> it invisible to the user), but if you look closer you should find the
> >> same result on your system. I have used this fact on numerous
> >> occasions.... also the question was not how to zip - though it almost
> >> sounds that way at first. All he wanted to do was schedule the code he
> >> has.
> >
> > Thanks for your feedback. To verify your claim, I tried this
> > little experiment:
> > - Create a folder c:\Test.
> > - Populate it with a few files.
> > - Launch "My Computer".
> > - Right-click c:\Test, then click Properties, then Advanced.
> > - Tick "Compress contents to save disk space", then OK, then Apply.
> >
> > The files in this folder are now compressed but there is no .zip file
> > in sight. Each files is individually visible. The native WinXP compression
> > method does not use the well-known zip-based compression
> > facility but its own algorithm that stores each file in a compressed
> > form.
> >
> > The "Compress" method used by the OP does the same thing,
> > hence there is no .zip file.
> >
> > If you can generate a .zip file with the VB Script "Compress"
> > method then I'd love to see your code.
> >
> >
>
date: Thu, 19 Jun 2008 10:17:01 -0700
author: Doug
Re: Compress Folder to a single file?
The purchased version of WinZip has a command line
tool called wzzip.exe that you can use to compress any
number of files to a common .zip file.
"Doug" wrote in message
news:430E2B81-6B43-4AE3-BF9D-0D4AC78E91D6@microsoft.com...
>I also need to compress a folder to a file (.zip) on Windows. One shoul be
> able to do it with winzip (similar to old pkzip, or compress on UNIX) from
> command prompt (need a winzip modual download). A better way would be to
> use
> net send command to do the same thing with "Send to compressed (zipped)
> Folder" from command prompt. However, I do not know the syntax. If any
> one
> knows, please share.
>
> Thanks, Doug
>
> "Bob H" wrote:
>
>> 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 this
>> from
>> the send-to menu. So, right click your C:\Test folder and scroll to the
>> 'Send To' menu and then select 'Compressed (zipped) folder'. That is the
>> direct execution of the compress verb. That will generate a zipped
>> folder..
>> but, if you have one of the zip variants installed you may not be able to
>> see the Send To option that I am talking about. Again, I have to admit
>> you had me stumped for a second. I used to believe the two methods were
>> identical... I'll have to think about that one a bit.
>>
>> Happy compressing...
>> BH
>>
>> "Pegasus (MVP)" wrote in message
>> news:eLOYMWPuIHA.4492@TK2MSFTNGP02.phx.gbl...
>> >
>> > "Bob H" wrote in message
>> > news:ed1CYfOuIHA.1872@TK2MSFTNGP04.phx.gbl...
>> >> Two points -
>> >> 1 - (Pegasus) last time I looked, compressing a folder in XP (at
>> >> least) resulted in a zip archive. Windows attempts to hide that (or
>> >> make
>> >> it invisible to the user), but if you look closer you should find the
>> >> same result on your system. I have used this fact on numerous
>> >> occasions.... also the question was not how to zip - though it almost
>> >> sounds that way at first. All he wanted to do was schedule the code
>> >> he
>> >> has.
>> >
>> > Thanks for your feedback. To verify your claim, I tried this
>> > little experiment:
>> > - Create a folder c:\Test.
>> > - Populate it with a few files.
>> > - Launch "My Computer".
>> > - Right-click c:\Test, then click Properties, then Advanced.
>> > - Tick "Compress contents to save disk space", then OK, then Apply.
>> >
>> > The files in this folder are now compressed but there is no .zip file
>> > in sight. Each files is individually visible. The native WinXP
>> > compression
>> > method does not use the well-known zip-based compression
>> > facility but its own algorithm that stores each file in a compressed
>> > form.
>> >
>> > The "Compress" method used by the OP does the same thing,
>> > hence there is no .zip file.
>> >
>> > If you can generate a .zip file with the VB Script "Compress"
>> > method then I'd love to see your code.
>> >
>> >
>>
date: Thu, 19 Jun 2008 22:15:36 +0200
author: Pegasus \(MVP\)
Re: Compress Folder to a single file?
Have you looked at this (XP) ?
http://www.rondebruin.nl/windowsxpzip.htm
Tim
"Doug" wrote in message
news:430E2B81-6B43-4AE3-BF9D-0D4AC78E91D6@microsoft.com...
>I also need to compress a folder to a file (.zip) on Windows. One shoul be
> able to do it with winzip (similar to old pkzip, or compress on UNIX) from
> command prompt (need a winzip modual download). A better way would be to
> use
> net send command to do the same thing with "Send to compressed (zipped)
> Folder" from command prompt. However, I do not know the syntax. If any
> one
> knows, please share.
>
> Thanks, Doug
>
> "Bob H" wrote:
>
>> 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 this
>> from
>> the send-to menu. So, right click your C:\Test folder and scroll to the
>> 'Send To' menu and then select 'Compressed (zipped) folder'. That is the
>> direct execution of the compress verb. That will generate a zipped
>> folder..
>> but, if you have one of the zip variants installed you may not be able to
>> see the Send To option that I am talking about. Again, I have to admit
>> you had me stumped for a second. I used to believe the two methods were
>> identical... I'll have to think about that one a bit.
>>
>> Happy compressing...
>> BH
>>
>> "Pegasus (MVP)" wrote in message
>> news:eLOYMWPuIHA.4492@TK2MSFTNGP02.phx.gbl...
>> >
>> > "Bob H" wrote in message
>> > news:ed1CYfOuIHA.1872@TK2MSFTNGP04.phx.gbl...
>> >> Two points -
>> >> 1 - (Pegasus) last time I looked, compressing a folder in XP (at
>> >> least) resulted in a zip archive. Windows attempts to hide that (or
>> >> make
>> >> it invisible to the user), but if you look closer you should find the
>> >> same result on your system. I have used this fact on numerous
>> >> occasions.... also the question was not how to zip - though it almost
>> >> sounds that way at first. All he wanted to do was schedule the code
>> >> he
>> >> has.
>> >
>> > Thanks for your feedback. To verify your claim, I tried this
>> > little experiment:
>> > - Create a folder c:\Test.
>> > - Populate it with a few files.
>> > - Launch "My Computer".
>> > - Right-click c:\Test, then click Properties, then Advanced.
>> > - Tick "Compress contents to save disk space", then OK, then Apply.
>> >
>> > The files in this folder are now compressed but there is no .zip file
>> > in sight. Each files is individually visible. The native WinXP
>> > compression
>> > method does not use the well-known zip-based compression
>> > facility but its own algorithm that stores each file in a compressed
>> > form.
>> >
>> > The "Compress" method used by the OP does the same thing,
>> > hence there is no .zip file.
>> >
>> > If you can generate a .zip file with the VB Script "Compress"
>> > method then I'd love to see your code.
>> >
>> >
>>
date: Thu, 19 Jun 2008 20:06:35 -0700
author: Tim Williams timjwilliams at gmail dot com
Re: Compress Folder to a single file?
Il giorno Thu, 19 Jun 2008 10:17:01 -0700, =?Utf-8?B?RG91Zw==?=
ha scritto:
>I also need to compress a folder to a file (.zip) on Windows. One shoul be
>able to do it with winzip (similar to old pkzip, or compress on UNIX) from
>command prompt (need a winzip modual download). A better way would be to use
>net send command to do the same thing with "Send to compressed (zipped)
>Folder" from command prompt. However, I do not know the syntax. If any one
>knows, please share.
' CreateEmptyZip (nome dello zip da creare)
'
' AddFile2Zip (Nome archivio zip, File da aggiungere)
'
' AddFolder2Zip (Nome archivio zip, Cartella da aggiungere all'archivio)
'
' Creates a zip archive and adds one or more files.
' Uses Win XP native support for zip archives as folders.
'************************************************
ScriptFullName = wscript.scriptfullname
CurrentPath = Left(scriptfullname, InStrRev(ScriptFullName, "\"))
ZipFile = CurrentPath & "test.zip"
FileDaAggiungere = wscript.scriptfullname
FolderDaZippare = CurrentPath & "temp\"
'Crea un file zip vuoto.
a = CreateEmptyZip(ZipFile)
msgbox a 'Deve essere True.
'Aggiunge un file all'archivio zip appena creato.
a = AddFile2Zip (ZipFile, FileDaAggiungere)
msgbox a
'Aggiunge il contenuto di un folder all'archivio zip.
a= AddFolder2Zip (ZipFile, FolderDaZippare)
msgbox a
Function AddFile2Zip (sZipFile, sFile2Add)
'Aggiunge un file all'archivio zip esistente.
'Attenzione: di default il metodo CopyFile sovrascrive.
'NameSpace vuole un pathname completo e non solo il nome file.
On Error Resume Next
AddFile2Zip = True
Set oApp = createobject("Shell.Application")
oApp.NameSpace(sZipFile).CopyHere sFile2Add
If Err<>0 Then AddFile2Zip=False
End Function
Function CreateEmptyZip(sPathName)
'Create empty Zip File.
'Crea un file zip vuoto.
Dim fso, fp
Const ForWriting = 2 'Apre un file in scrittura.
CreateEmptyZip = True 'se tutto va bene resta true.
On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
Set fp = fso.OpenTextFile( sPathName, ForWriting, True )
If Err <> 0 Then
Set opfs = Nothing
CreateEmptyZip=False
Exit Function 'Errore nella creazione
end if
fp.Write Chr(80) & Chr(75) & Chr(5) & Chr(6) & String(18, 0)
If Err <> 0 Then
Set opfs = Nothing
CreateEmptyZip=False
Exit Function 'errore nella scrittura
End If
fp.Close 'Chiude il file, altrimenti non si può usare.
Set fso = Nothing
Err.Clear
End Function
Function AddFolder2Zip (ZipFile, Folder)
'Copia il contenuto di una cartella in un file zip.
'Il folder deve essere indicato con pathname completo
'e terminare con un "\"
'Zipfile deve essere indicato con pathname completo.
AddFolder2Zip=True
Set oApp = CreateObject("Shell.Application")
'Copia il contenuto della cartella nello zip.
Set oFolder = oApp.NameSpace(Folder)
If Not oFolder Is Nothing Then
oApp.NameSpace(ZipFile).CopyHere oFolder.Items
End If
If Err <>0 Then AddFolder2Zip=False
End Function
--
Giovanni Cenati (Bergamo, Italy)
Write to "Reventlov" at katamail com
http://digilander.libero.it/Cenati (Esempi e programmi in VbScript)
--
date: Fri, 20 Jun 2008 21:21:23 GMT
author: (Reventlov)
|
|
