[Ace] WinzipIT
Simple code to zip/unzip with Winzip
AI
ИИ-обзор: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Исходный код
'--------- 'WinZipIT '--------- Function winZipit(ByVal source As String, ByVal target As String, ByVal zip As Boolean) zipIT = App.Path & "winzip32 -a" unzipIT = App.Path & "winzip32 -e " If zip = True Then Shell (zipIT & target & source) Else: Shell (unzipIT & target & source) End If End Function
Оригинальные комментарии (3)
Восстановлено из Wayback Machine