Копирование файлов - VB (170652)

Формулировка задачи:

Нужно чтобы несколько файлов копировалось, из указанных в коде пути, в архив который создан программноДобавлено через 14 минут
Сообщение от Cricket93
Нужно чтобы несколько файлов копировалось, из указанных в коде пути, в архив который создан программно
С копированием решил так:
Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" _
                (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, _
                ByVal bFailIfExists As Long) As Long
 
Private Declare Function MoveFile Lib "kernel32" Alias "MoveFileA" _
                (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long
 
Private Sub Command1_Click()
    Call CopyFile("C:\1.txt", "D:\1.txt", 0)
End Sub
А как архив создать я незнаю...Добавлено через 1 час 50 минут
Сообщение от Cricket93
Call CopyFile("C:\1.txt", "D:\1.txt", 0)
А как сделать чтоб текстовый файл копировался в созданную папку?

Код к задаче: «Копирование файлов - VB (170652)»

textual
   Shell "pkzip.exe -a Имя_zip_архива *.*"  ' или список файлов или другой шаблон...

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

6   голосов, оценка 3.333 из 5


СОХРАНИТЬ ССЫЛКУ