Public Sub ZipFiles() 
  Dim ………….. 
 
  ZIPPath = App.Path & "PKZIP.EXE" 
  ZipFilePath = Dir1.Path 
  ZipFileName = ZipFilePath & ZipName + ".zip " 
 
  Task = Shell(ZIPPath & " -add -dir=relative " & ZipFileName, vbHide) 
  hProcess = OpenProcess(SYNCHRONIZE, False, Task) 
  Result = WaitForSingleObject(hProcess, INFINITE) 
  Result = CloseHandle(hProcess) 
End Sub