Prikazi cijelu temu 18.03.2018 19:11
dex Van mreze
Super Moderator
Registrovan od:23.02.2012
Lokacija:Knjazevac


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):
  1.     Dim Naziv As String
  2.     Dim Putanja As String
  3.     Dim extenzija As String
  4.      
  5.     Putanja = "E:\Izvestaji\"
  6.     Naziv = "Izvestaj"
  7.     extenzija = ".csv"
  8.      
  9.     Dim brojac As Integer
  10.     brojac = 1
  11.      
  12.     Dim strfile As String
  13.     strfile = Dir(Putanja & "*" & extenzija)
  14.      
  15.         While strfile <> ""
  16.            
  17.                 brojac = brojac + 1
  18.            
  19.             strfile = Dir()
  20.         Wend
  21.        
  22.     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