Dim Program As String Program = App.path & "\RAR.EXE" Dim Fajlovi As String Fajlovi= App.path & "\Bazi\*.mdb" Dim VoRar As String VoRar= "C\Bazi.rar"