home *** CD-ROM | disk | FTP | other *** search
/ business-86-101-185-173.business.broadband.hu / business-86-101-185-173.business.broadband.hu.zip / business-86-101-185-173.business.broadband.hu / ZipIt.vbs < prev   
Text File  |  2014-05-12  |  474b  |  18 lines
  1. zipFile = "J:\Disaster Recovery\Regens\CurrentVersion.zip"
  2. sourcePath = "D:\UPSDATA\regens\eles\euvam\pbl"
  3. 'sourcePath = "\\DIMS\D$\UPSDATA\regens\eles\euvam\pbl"
  4.  
  5. wscript.echo "Adding " & sourcePath & " to " & zipFile
  6.  
  7. Set oZip = CreateObject("CGZipLibrary.CGZipFiles")
  8.  
  9. oZip.IncludeSystemFiles = true
  10. oZip.ZipFileName = zipFile
  11. oZip.AddFile sourcePath + "\*.*"
  12.  
  13. If oZip.MakeZipFile <> 0 then
  14.    wscript.echo oZip.GetLastMessage
  15. End If
  16.  
  17. set oZip = nothing
  18.