Prikazi cijelu temu 18.03.2018 23:38
dex Van mreze
Super Moderator
Registrovan od:23.02.2012
Lokacija:Knjazevac


Predmet:Re: Loop za provera naziv fajlove
ovo bi trebalo da da sledeci najveci

PreuzmiIzvorni kôd (Visual Basic):
  1. subProverka:
  2.     Dim fs As New Scripting.FileSystemObject
  3.     If fs.FileExists(ReadIniValue(App.Path & "\METMG.ini", "Parametri", "PatekaPDF") & strXLS) Then
  4.        strfile = Dir(Putanja & strXLStmp & "*" & extenzija)
  5.         While strfile <> ""
  6.          If strfile <> strXLStmp & extenzija Then  ' da preskoci fajl koji nama broj u zagradi inace pravi gresku
  7.             trenutni = Left(strfile, Len(strfile) - 5)
  8.              trenutni = Right(trenutni, Len(trenutni) - 5)
  9.              If IsNumeric(trenutni) Then
  10.              broj = CInt(trenutni)
  11.                 If (broj >= brojac) Then
  12.                     brojac = broj + 1
  13.                 End If
  14.              End If
  15.          End If
  16.                  strfile = Dir()
  17.        Wend
  18.     Putanja = Putanja & strXLStmp & "("  & brojac & ")" & extenzija
  19.    End If

Kad sam provio ono moje bilo mi je vazno samo da imaju razlicita imena da ne dodje do overwrite