[Ace] WinzipIT
Simple code to zip/unzip with Winzip
AI
สรุปโดย 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