Dim Naziv As String
Dim Putanja As String
Dim extenzija As String

Putanja = "E:\Izvestaji\"
Naziv = "Izvestaj"
extenzija = ".csv"

Dim brojac As Integer
brojac = 1

Dim strfile As String
strfile = Dir(Putanja & "*" & extenzija)

    While strfile <> ""
        If strfile = Naziv & brojac & extenzija Then
            brojac = brojac + 1
        End If
        strfile = Dir()
    Wend
    
Putanja = Putanja & Naziv & brojac & extenzija