Архивирование файла

Добрый день!
На диске С есть файл File1
На диске С есть сжатая zip папка с именем 1

Пытаюсь скопировать в сжатую папку файл:

FileCopy "C:\File1.txt", "C:\1.zip\File1.txt"


Подскажите пожалуйста, как правильно написать имя этой сжатой папки? 1.zip ??? (это ее системное имя?)

Спасибо всем откликнувшимся.

ВалентинаАл,

Set objShell = CreateObject("Shell.Application")
objShell.Namespace("C:\1.zip").CopyHere "C:\File1.txt"

PA
ВалентинаАл, Set objShell = CreateObject("Shell.Application") objShell.Namespace("C:\1.zip").CopyHere "C:\File1.txt"

СПАСИБО огромное.
А можно ли после копирования в архивную папку переименовать скопированный файл, добавив к имени дату копирования, напр. File1_051211 ?

Вот пытаюсь переименовать таким способом, не получается:

objShell.NameSpace("C:\1.zip").ParseName("File1.txt").Name = "File1" & Format(Date, "ddmmyy")

Где ошибка?

ВалентинаАл,

это всё делает winrar, например вот такой cmd сохраняет файлы mdb в папке sohr
и архивирует их с именем proga + датой в имени, например proga2011122117 (5 вечера сегодня):

cd c:\

copy/Y *.mdb C:\sohr
cd c:\sohr
rar a -agYYYYMMDDHH -dh -idq -m4 -os  c:\sohr\proga *.mdb

У меня задача обойтись без RAR. Ошибка где-то, не пойму где..

ВалентинаАл
У меня задача обойтись без RAR. Ошибка где-то, не пойму где..

вау, а задача обойтись без виндоус не стоит?

alvk
ВалентинаАл У меня задача обойтись без RAR. Ошибка где-то, не пойму где.. вау, а задача обойтись без виндоус не стоит?........

Rar единственный архиватор в мире окон?

Не понимаю ваш сарказм.

Штатными средствами виндовс создана архивная ZIP папка, в нее нужно копировать файлы и переименовывать их там (для накопления с одинаковыми исходными именами, дальнейшего отбора и удаления старых).
Что тут особенного?

ВалентинаАл,

Работа с ZIP архивами средствами Windows XP