Prikazi cijelu temu 22.04.2011 15:06
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Ideje i rjesenja iz teme fiskalizacija
Citat:
Set fs = Application.FileSearch
With fs
.LookIn = PutTO
.FileType = 1
If .Execute > 0 Then

Provjerava dali postoji na disku fajlova ovoga tipa i ucitava ih i to vjrovatno znas.

Moglo bi se ubrzati napr. da se pozove fajl sa datim imenom pa ako prijavi gresku znaci nema ga.
Ucinak bi bio isti ali eto ovo je elegantnije.
Ako toliko traje mora da je i disk malo pospor ili moze biti da je zaustavljen od strane sistema pa dok ga pokrene ponovo to traje.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.