Pa ako tako puno trebaš prepisivati, a da ne moraš puno programirati najjednostavnije ti je
da si kreiras jednu tabelu sa jednim poljem ---> broj_kopija

Iz koje bi procitao
brojkop=nz(dlookup("broj_kopija","tblbrojac"),0)+1
imefajla="Kopija" & brojkop & ".dbf" ili bilo sto

i jos samo moras u tabelu upisati taj zadnji broj

Public Function SearchFile()
'*******************************************
'Ime: SearchFile (Function)
'Sadržaj: Trazenje fajlova na disku
'Autor: ZXZ
'Datum: rujan 05, 2008, 03:26:54
'Adresa: Tuzla BiH
'Email: [email protected]
'Ulazni parametri:
'Izlazni parametri:
'*******************************************
Dim ImeFilea As String
Dim a As String
ImeFilea = "NekoIme??" '?? su djokeri moze biti bilo sta
With Application.FileSearch
.NewSearch
.LookIn = "E:\Neki\"
'.SearchSubFolders = True ' trazi i u pod direktorijima
.FileName = ImeFilea
.FileType = 1 ' tip fajla misli se na exstenziju
a = .Execute
a = Format(a, "00")''Znaci da moze brojati od 1-99 sufiks brojeva na ime
End With ' kraj opcija
'Ovdje upisi tvoj file pod imenom imefilea & a
End Function

Hvala monogo na pomoci, ali nisam se bas snasao. Hajde da priblizim malo vise problem mozda ce biti jasnije.


U pitanju su racuni. Exportovani file bi trebao da sadrzi stavke tog racuna. Na primer u file-u txt1.dbf bi trebalo da se nalaze stavke racuna pod brojem 1 recimo.

Napravio sam button koji na On Click prokrece macro koji mi pravi file: txt.dbf koji sadrzi stvke racuna koji meni trebaju, ali sledeci export mi "pregazi" stari file i ubaci novi. Ja to necu, nego da mi snimi novi file pod novim imenom npr. txt2.dbf

Vazno mi je jedino da u nazivu postoji fiksno "txt" pa onda taj broj koji se menja.

Nadam se da nisam zakomplikovao zivot?

Dao sam ti kod koji upravo to radi.
Provjerava na datoj putanji dali postoji file ako ne stavlja ime txt00.
Sledeci puta kad pokrenes nadje ovaj pa stavlja 01 itd.

@ Bojan Vajagić

Oba rešenja koja si dobio su više nego upotrebljiva. Nema potrebe da nam "približavaš problem". To što se nisi snašao je problem u implementaciji. Ako baš nikako ne ide, zakači fajl sa primerom, pa će neko od kolega koji su ponudili rešenje da ga pokaže na delu.

Getsbi

"Priblizavanje problema" nije imalo nameru da ikoga optereti. Ukoliko sam ne svesno to ucinio, ja se izvinjavam. Takodje se nadam da nisam prekrsio Pravilnik za korisnike.

Trtko i Izonic, hvala na odgovoru!

Implementacija je uspesna!!!

Pozdrav!!!

Ne opterećuj se, kolega Getsbi je poznat po spontanim reakcijama