在編寫VB程序時，我們經(jīng)常會遇到需要將文件進行壓縮的情況。比如我們想將一個文本文件壓縮成rar或zip格式的壓縮文件。這時候我們可以使用VB中的shell函數(shù)來實現(xiàn)這個功能。 有123.txt文件，

在編寫VB程序時，我們經(jīng)常會遇到需要將文件進行壓縮的情況。比如我們想將一個文本文件壓縮成rar或zip格式的壓縮文件。這時候我們可以使用VB中的shell函數(shù)來實現(xiàn)這個功能。

有123.txt文件，現(xiàn)用VB將它壓縮

假設我們有一個名為123.txt的文件，我們希望能夠?qū)⑺鼔嚎s成一個rar或zip文件。首先，我們需要打開VB，并新建一個按鈕(Command2)來執(zhí)行壓縮操作。

具體過程請看我的其它經(jīng)驗分享

下面是實現(xiàn)壓縮功能的代碼:

Private Sub Command2_Click()
    Shell "C:Program FilesWinRARWinRAR.exe a F:1212123.rar F:1212123.txt"
End Sub

在點擊Command2按鈕后，上述代碼將會調(diào)用系統(tǒng)中安裝的WinRAR程序，并指定了壓縮文件的路徑和名稱。在這個例子中，我們將123.txt壓縮至F:1212123.rar。

運行執(zhí)行Command2，將123.txt壓縮至F:1212123.rar

當我們運行程序并點擊Command2按鈕時，系統(tǒng)會自動調(diào)用WinRAR程序，并將123.txt文件壓縮至指定的壓縮文件路徑中。

壓縮完成

當壓縮過程完成后，我們可以在指定的壓縮文件路徑中找到生成的壓縮文件。這樣，我們就成功地使用VB將文件壓縮成rar或zip壓縮文件了。