Predmet:Re: Loop za provera naziv fajlove
Skoro sam radio nesto slicno
ovde
Kod ovog koda, ako fali trojka, a imamo cetvorku, peticu i vece dobice naziv Izvestaj3
Ako zelis prvi slobodan najveci jednostavno izbaci if uslov
PreuzmiIzvorni kôd (Visual Basic): 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 <> ""
brojac = brojac + 1
strfile = Dir()
Wend
Putanja = Putanja & Naziv & brojac & extenzija
Medjutim ni ovo ne radi proavilno ako neki fali.
Na primer ako imas 1,2,3,5 dobices rezultat 5. Razmislicu kako da se to resi
Ne znam za sta ti treba, ali mislim da ti ovo prvo zadovoljava potrebe