Private Sub Command1_Click()
Dim Program As String
Program = App.Path & "\7za.exe" ' treba da ima rar.exe vo istiot direktorium od ovaj program
Dim Fajlovi As String
Fajlovi = App.Path & "\*.txt" ' Svi txt Fajlove
Dim VoRar As String
VoRar = App.Path & "\Data.zip" ' Vo isti folder gde se nalazi program formira se fajl Data.zip
Dim strString As String
strString = Program & " a " & VoRar & " " & Fajlovi
' e sad ovde vec se izvrsi pakovajne podatke
ShellAndWait strString, vbNormalNoFocus
End Sub
Private Sub Command2_Click()
Dim Program As String
Program = App.Path & "\7za.exe" ' treba da ima rar.exe vo istiot direktorium od ovaj program
Dim OdRar As String
OdRar = App.Path & "\Data.zip" ' Data.zip mora se nalaziti u isti folder gde je program i 7za.exe
Dim strString As String
strString = Program & " e " & OdRar & " -o" & App.Path & "\" & " -y" ' vo istiot folder gde se nalazi program
' e sad ovde vec se izvrsi pakovajne podatke
ShellAndWait strString, vbNormalNoFocus
End Sub