Zip file bằng file Batch

Bạn chưa có winrar hay 7z để zip file. Mình có 1 cách khác để zip file khi không có có ứng dụng đấy. Tự viết file Batch để zip file.

Trước tiên mình có 1 file dùng để zip file với nội dung.

'Get command-line arguments.
Set objArgs = WScript.Arguments
InputFolder = objArgs(0)
ZipFile = objArgs(1)
'Create empty ZIP file.
CreateObject("Scripting.FileSystemObject").CreateTextFile(ZipFile, True).Write "PK" & Chr(5) & Chr(6) & String(18, vbNullChar)
Set objShell = CreateObject("Shell.Application")
Set source = objShell.NameSpace(InputFolder).Items
objShell.NameSpace(ZipFile).CopyHere(source)
'Required!
wScript.Sleep 2000

Các bạn copy nội dung đấy và lưu vào 1 file có tên zip.vbs như thế là mình đã có công cụ zip file rồi.

Giờ tạo file Batch (file btach có duôi .bat) với nội dung.

CScript "F:\zip.vbs" "F:\Thư mục cần zip" "F:\filezip.zip"

Đường dẫn "F:\zip.vbs" là đường dẫn chứa file công cụ zip
Đường dẫn "F:\filezip.zip" là thành quả zip file

Chạy file .bat và nhận thành quả nhé.