Hướng dẫn code nén tất cả các file trong folder thành file .zip

Liên hệ QC

saobekhonglac

Thành viên mới
Tham gia
1/11/08
Bài viết
1,565
Được thích
1,454
Giới tính
Nam
Chào Anh/Chị.

Nhờ Anh/Chị hướng dẫn giúp em code nén tất cả các file có trong nhiều folder thành những dạng file .zip.
Ví dụ trong folder "D:\A1" có 100 file thì khi chạy code sẽ nén tất cả file trong folder "A1s" lại thành file D:\A1.zip
Tương tự như vậy sẽ nén hết các file trong foler A1 tới A11.

Cám ơn Anh/Chị.
 

File đính kèm

Chào Anh/Chị.

Nhờ Anh/Chị hướng dẫn giúp em code nén tất cả các file có trong nhiều folder thành những dạng file .zip.
Ví dụ trong folder "D:\A1" có 100 file thì khi chạy code sẽ nén tất cả file trong folder "A1s" lại thành file D:\A1.zip
Tương tự như vậy sẽ nén hết các file trong foler A1 tới A11.

Cám ơn Anh/Chị.

Cái này hay và tiện dụng nè, bắc ghế ngồi xem cao thủ ra tay và học hỏi
 
Chào Anh/Chị.

Nhờ Anh/Chị hướng dẫn giúp em code nén tất cả các file có trong nhiều folder thành những dạng file .zip.
Ví dụ trong folder "D:\A1" có 100 file thì khi chạy code sẽ nén tất cả file trong folder "A1s" lại thành file D:\A1.zip
Tương tự như vậy sẽ nén hết các file trong foler A1 tới A11.

Cám ơn Anh/Chị.
Vô Link sau thong thả từ từ ngâm cứu là tự tay viết được cái mình cần nè .... Code trong đó rất cơ bản chỉ cần Copy chỉnh sửa 1 tẹo là ok

Mình rành *.zip bắt đầu từ đó ( học của 2 đại sư phụ trong đó he ) .... nhưng kỳ này làm biếng lắm chỉ dòm và chỉ nơi cầm tìm cho thôi .... biếng làm lắm :oops::p

https://www.giaiphapexcel.com/diendan/threads/vọc-chơi-với-những-thuật-toán-nén-và-giải-nén-file.108310/[/QUOTE]
 
Vô Link sau thong thả từ từ ngâm cứu là tự tay viết được cái mình cần nè .... Code trong đó rất cơ bản chỉ cần Copy chỉnh sửa 1 tẹo là ok

Mình rành *.zip bắt đầu từ đó ( học của 2 đại sư phụ trong đó he ) .... nhưng kỳ này làm biếng lắm chỉ dòm và chỉ nơi cầm tìm cho thôi .... biếng làm lắm :oops::p

https://www.giaiphapexcel.com/diendan/threads/vọc-chơi-với-những-thuật-toán-nén-và-giải-nén-file.108310/
[/QUOTE]

Em nhớ không lầm là anh từng nói 1 câu là cho cá chứ không cho cần câu. Em sẽ vào đó ngâm cứu, cám ơn anh nhiều.
 
Bạn cài winrar, trong folder cài đặt có file rar.exe là file dùng giao diện dòng lệnh của winrar. Bạn chạy thử trong cửa sổ cmd trước với file này, ví dụ nén các file trong folder test
"C:\Program Files\WinRar\RAR.exe" a e:\xxx.rar e:\test
Nếu bắt buộc dùng zip thì
"C:\Program Files\WinRar\WinRAR.exe" a -afzip e:\xxx.rar e:\test
Sau khi thử xong thì bạn gọi lệnh trong vba này bằng lệnh Shell
 
Bạn cài winrar, trong folder cài đặt có file rar.exe là file dùng giao diện dòng lệnh của winrar. Bạn chạy thử trong cửa sổ cmd trước với file này, ví dụ nén các file trong folder test
"C:\Program Files\WinRar\RAR.exe" a e:\xxx.rar e:\test
Nếu bắt buộc dùng zip thì
"C:\Program Files\WinRar\WinRAR.exe" a -afzip e:\xxx.rar e:\test
Sau khi thử xong thì bạn gọi lệnh trong vba này bằng lệnh Shell
nếu người ta keo em ko cài WinRaR hay bất cứ trình giải nén nào thì bằng cách gì đó có nén và giải nén được file *.rar ko bạn nhỉ ?!
 
nếu người ta keo em ko cài WinRaR hay bất cứ trình giải nén nào thì bằng cách gì đó có nén và giải nén được file *.rar ko bạn nhỉ ?!
Tất nhiên nếu không cài winrar cũng có cách vì định dạng zip windows cũng tự nén được nhưng lại phải mất công tìm kiếm. Còn chuẩn nén rar thì phải winrar mới nén được, không tính các chương trình vi phạm bản quyền. Ở đây chủ topic muốn xây dựng công cụ nén file để bạn ấy sử dụng chứ không phải cung cấp cho người khác thì cài winrar không khó. Hay có ai lười đến mức muốn chạy vba mà ngại cài office không nhỉ.
 
Web KT

Bài viết mới nhất

Back
Top Bottom