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