Prev: Using VBScript to Check for Network Share File?
Next: Help required in fetching data from child nodes
From: Paul Randall on 26 Feb 2010 17:50

"Dave "Crash" Dummy" <invalid(a)invalid.invalid> wrote in message
news:vVVhn.57221$G_2.26039(a)newsfe15.iad...
> mr_unreliable wrote:
>> Dave "Crash" Dummy wrote:
>>> I don't speak (or read) Italian, so I will miss your valuable
>>> notes...
>>
>> hi Crash,
>>
>> You don't need to read Italian, Google will translate it for you:
>>
>> http://translate.google.com/?hl=en#
>>
>> You can give the translator either text or a url. Then pick the input
>> language and the language you want out from the dropdown boxes.
>>
>> What you get out will be a somewhat fractured English, but readable
>> enough.
>>
>> There is plenty of interesting code around on "non-English" websites,
>> and I use google all the time to translate it..
>
> "Fractured" is what is known as an understatement. But I will use the
> Google translator as a last resort if I have trouble making the code work.

Well, I think if you do a little testing, you will find that
translate.google.com does a word-for-word translate. Because of the
differences in syntax and idoms and lots of other stuff like words having
more than one equivalent in both the old and new languages (ie, synonyms),
it appears fractured. I don't think there are any free online translators
for actual meaning of a sentence or paragraph or larger document. I too
find it to be a useful freebee.

-Paul Randall


From: Reventlov on 27 Feb 2010 17:02
Il giorno Fri, 26 Feb 2010 10:17:58 -0500, "Dave \"Crash\" Dummy"
<invalid(a)invalid.invalid> ha scritto:
>Thank you. I don't speak (or read) Italian, so I will miss your valuable
>notes, but I should be able to figure out the code.

This code was taken from this ng. I probably only put it in separate functions so that it
can be used without need to understand how it works.
Automatic translators are often somehow funny.
The important thing, here, is to create an empty zip file and then add files and/or
folders to it.

This waits until the copy is completed. The compression is actually made on a temp file.
When your zip file grows more than 22 bytes then the compression is finished. Windows
renames the temp file as your zip file. If the script ends before completing the
compression, the task is aborted.
set fso=createobject("scripting.filesystemobject")
Set h=fso.getFile(ZipFile)
do
wscript.sleep 300
loop while h.size=< 22

This adds a file to the zip file you have already created.
Function AddFile2Zip (sZipFile, sFile2Add)
CopyHere overwrites by default.
sZipFile should be a completa pathname, as required by NameSpace

Function CreateEmptyZip(sPathName)
'Creates empty Zip File.


Function AddFolder2Zip (ZipFile, Folder)
Folder must be a complete pathname and end with "\"

--
Giovanni Cenati (Bergamo, Italy)
Write to "Reventlov" at katamail com
http://digilander.libero.it/Cenati (Esempi e programmi in VbScript)
--
From: "Dave "Crash" Dummy" on 27 Feb 2010 22:08
Reventlov wrote:
> Il giorno Fri, 26 Feb 2010 10:17:58 -0500, "Dave \"Crash\" Dummy"
> <invalid(a)invalid.invalid> ha scritto:
>> Thank you. I don't speak (or read) Italian, so I will miss your
>> valuable notes, but I should be able to figure out the code.
>
> This code was taken from this ng. I probably only put it in separate
> functions so that it can be used without need to understand how it
> works. Automatic translators are often somehow funny. The important
> thing, here, is to create an empty zip file and then add files and/or
> folders to it.

Not to worry. I got it figured out, and it is in use. The only tricky
part is timing when adding more than one file.

--
Crash

Life is short. Eat dessert first.
From: LJB on 1 Mar 2010 13:24

"Dave "Crash" Dummy" <invalid(a)invalid.invalid> wrote in message
news:M6lin.2129$NH1.1447(a)newsfe14.iad...
> Reventlov wrote:
>> Il giorno Fri, 26 Feb 2010 10:17:58 -0500, "Dave \"Crash\" Dummy"
>> <invalid(a)invalid.invalid> ha scritto:
>>> Thank you. I don't speak (or read) Italian, so I will miss your
>>> valuable notes, but I should be able to figure out the code.
>>
>> This code was taken from this ng. I probably only put it in separate
>> functions so that it can be used without need to understand how it
>> works. Automatic translators are often somehow funny. The important
>> thing, here, is to create an empty zip file and then add files and/or
>> folders to it.
>
> Not to worry. I got it figured out, and it is in use. The only tricky
> part is timing when adding more than one file.
>
> --
> Crash
>
> Life is short. Eat dessert first.

I couldn't resist adding a link http://www.rondebruin.nl/windowsxpzip.htm.
In english with several examples on how to do it in VBA but easily
translated to VBS.


From: LJB on 1 Mar 2010 13:40
Here is a link to 7-zip VBA speciffically

http://www.rondebruin.nl/7zipwithexcel.htm


First  |  Prev  | 
Pages: 1 2
Prev: Using VBScript to Check for Network Share File?
Next: Help required in fetching data from child nodes