dex 04.03.2018 18:34
Predmet:Re: Kreiranje text fajla sa tabulatorima

Resio nekako, verovatno ostecen fajl. Kad krenuo ispocetka sve proradelo OK.
Ono sto me sad muci je kako spreciti overwrite fajla?

dex 04.03.2018 21:05
Predmet:Re: Kreiranje text fajla sa tabulatorima

Reshio i to

u folderu izvestaji prave se fajlovi izvestaj1, izvestaj2...

ispitujemo dok ne nadjemo prvi slobodan broj

PreuzmiIzvorni kôd (vbnet):
  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.         If strfile = Naziv & brojac & extenzija Then
  17.             brojac = brojac + 1
  18.         End If
  19.         strfile = Dir()
  20.     Wend
  21.    
  22. Putanja = Putanja & Naziv & brojac & extenzija