Domů › ASP_Volume3 › Zip and Unzip - in VB6
Advertisement
ASP_Volume3 Files/ File Controls/ Input/ Output #66586

Zip and Unzip - in VB6

Zaid Markabi
★★★★★
4.8 · Stažení: 2,341

we want to call "WinRar.exe" from our VB project .

AI

Shrnutí AI: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.

Zdrojový kód
original-source 
' we need ZipCmd and UnZipCmd ( commands button ) .

Private Sub ZipCmd_Click()
' we like to zip [ C:\DataFiles ] folder to [ C:\Compressor.rar ] file.
Shell App.Path + "\WinRar.exe M C:\Compressor.rar C:\DataFiles"
MsgBox "Zipped"
End Sub

Private Sub UnZipCmd_Click()
Shell App.Path + "\WinRar.exe X C:\Compressor.rar C:\"
MsgBox "UnZipped"
End Sub
Původní komentáře (3)
Obnoveno z Wayback Machine