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

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

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

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

具體過(guò)程請(qǐng)看我的其它經(jīng)驗(yàn)分享

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

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

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

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

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

壓縮完成

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