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 & "\Bazi\*.bin" Dim VoRar As String VoRar= "C\data.zip" Dim strString As String strString= Program & " a " & VoRar & " " & VoRar Msgbox strString ' da pogledas kako izgleda komplet ' e sad ovde vec se izvrsi pakovajne podatke ShellAndWait strString, vbMinimizedNoFocus