Chào các bạn,
Đề tài Zip và Unzip chắc chúng ta cũng đã thảo luận rồi. Tôi xin giới thiệu các bạn một ví dụ tại trang CodeGuru về Zip và Unzip.
http://www.codeguru.com/vb/gen/vb_graphics/fileformats/article.php/c6743/#more
Ngòai ra còn một số OpenSource về vấn đề này tại
http://www.7-zip.org/
Như vậy nếu trong một ứng dụng tôi có thể dùng hai class module để nhằm thao tác Zip và Unzip tôi đưa đường dẫn đầu
Để zip thì các bạn có thể dùng đọan code sau trong thủ tục của bạn:
-------
Dim oZip as CGZipFiles
set oZip = new CGZipFiles
oZip.ZipFileName = "\MyZip.Zip"
oZip.AddFile "c:\mystuff\myfiles\*.*"
oZip.AddFile "c:\mystuff\mymedia\*.wav"
If oZip.MakeZipFile <> 0 then
MsgBox oZip.GetLastMessage
End If
set oZip = nothing
-------
Và để Unzip các bạn dùng đọan code sau trong thủ tục của mình:
-------
Dim oUnZip as CGUnZipFiles
set oUnZip = new CGUnZipFiles
oUnZip.ZipFileName = "\MyZip.Zip"
oUnZip.ExtractDir = App.Path ' or whatever you like !
oUnZip.HonourDirectories = true ' keep dir structure
If oUnZip.UnZip <> 0 then
MsgBox oUnZip.GetLastMessage
End If
set oUnZip = nothing
--------
Chú ý để dùng hai đọan code trên bạn phải import hai class module CGUnzipFiles và CGZipFiles trong Workbook của bạn.
Vậy đấy. Bạn hãy tha hồ mà làm nhé.
Chúc các bạn thành công.
Thân,
Lê Văn Duyệt
Đề tài Zip và Unzip chắc chúng ta cũng đã thảo luận rồi. Tôi xin giới thiệu các bạn một ví dụ tại trang CodeGuru về Zip và Unzip.
http://www.codeguru.com/vb/gen/vb_graphics/fileformats/article.php/c6743/#more
Ngòai ra còn một số OpenSource về vấn đề này tại
http://www.7-zip.org/
Như vậy nếu trong một ứng dụng tôi có thể dùng hai class module để nhằm thao tác Zip và Unzip tôi đưa đường dẫn đầu
Để zip thì các bạn có thể dùng đọan code sau trong thủ tục của bạn:
-------
Dim oZip as CGZipFiles
set oZip = new CGZipFiles
oZip.ZipFileName = "\MyZip.Zip"
oZip.AddFile "c:\mystuff\myfiles\*.*"
oZip.AddFile "c:\mystuff\mymedia\*.wav"
If oZip.MakeZipFile <> 0 then
MsgBox oZip.GetLastMessage
End If
set oZip = nothing
-------
Và để Unzip các bạn dùng đọan code sau trong thủ tục của mình:
-------
Dim oUnZip as CGUnZipFiles
set oUnZip = new CGUnZipFiles
oUnZip.ZipFileName = "\MyZip.Zip"
oUnZip.ExtractDir = App.Path ' or whatever you like !
oUnZip.HonourDirectories = true ' keep dir structure
If oUnZip.UnZip <> 0 then
MsgBox oUnZip.GetLastMessage
End If
set oUnZip = nothing
--------
Chú ý để dùng hai đọan code trên bạn phải import hai class module CGUnzipFiles và CGZipFiles trong Workbook của bạn.
Vậy đấy. Bạn hãy tha hồ mà làm nhé.
Chúc các bạn thành công.
Thân,
Lê Văn Duyệt
