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):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 <> ""
If strfile = Naziv & brojac & extenzija Then
brojac = brojac + 1
End If
strfile = Dir()
Wend
Putanja = Putanja & Naziv & brojac & extenzija