Function BekapInfo() Dim StaroIme As String Dim NovoIme As String Dim Ime As String Dim Putanja As String On Error GoTo Kraj StaroIme = ImeBaze Putanja = PutanjaB NovoIme = Year(Date) & Format(Month(Date), "mm") & Format(Day(Date), "dd") NovoIme = Putanja & "backup\" & NovoIme & ".zip" Shell Putanja & "Pkzip " & NovoIme & " " & StaroIme MsgBox "Putanja:" & putanja & vbcr & "NovoIme:" & NovoIme & vbcr & "StaroIme:" & StaroIme Exit Function Kraj: End Function