Predmet:Re: Loop za provera naziv fajlove
ovo bi trebalo da da sledeci najveci
PreuzmiIzvorni kôd (Visual Basic):subProverka:
Dim fs As New Scripting.FileSystemObject
If fs.FileExists(ReadIniValue(App.Path & "\METMG.ini", "Parametri", "PatekaPDF") & strXLS) Then
strfile = Dir(Putanja & strXLStmp & "*" & extenzija)
While strfile <> ""
If strfile <> strXLStmp & extenzija Then ' da preskoci fajl koji nama broj u zagradi inace pravi gresku
trenutni = Left(strfile, Len(strfile) - 5)
trenutni = Right(trenutni, Len(trenutni) - 5)
If IsNumeric(trenutni) Then
broj = CInt(trenutni)
If (broj >= brojac) Then
brojac = broj + 1
End If
End If
End If
strfile = Dir()
Wend
Putanja = Putanja & strXLStmp & "(" & brojac & ")" & extenzija
End If
Kad sam provio ono moje bilo mi je vazno samo da imaju razlicita imena da ne dodje do overwrite