Sub Putevi()
    Dim Ref As Reference
    Dim Temp As String
'---------------------------------------------------------------------------------------
'PUTANJE FAJLOVA KORIŠTENIH U DATOM PROGRAMU
'NALAZE SE U "tbPutanje"
'AutorZXZ
'---------------------------------------------------------------------------------------
    
 Open Db_Putanja & "\_putevi.txt" For Output Shared As #1
    
    For Each Ref In References

        If Ref.IsBroken = False Then
             Temp = Ref.Name & vbTab & Ref.FullPath & vbTab & Ref.Major & "." & Ref.Minor
             Print #1, Temp
        End If
Next Ref
Close #1
End Sub