Predmet:Application.FileSearch-dir
Da filesearc ne postoji od neke verzije accessa. I ne sjecam se od koje.
Treba koristiti dir:
Primjer:
PutanjaOrg = ("C:\")
PutanjaS = "d:\temp\"
ImeOrginal = Dir(PutanjaOrg, vbDirectory)
Do While ImeOrginal <> ""
ImeOrginal = Dir
Loop
Htio sam prepraviti proceduru ali ne mogu dok mi ne das i ovu proceduru:
ImeFajla
a ovo pretpostavljam sluzi samo da saceka i ima procedura zaustavi.
If ImeF(1) = ImeR(1) Then
DoEvents
Brojac = Brojac + 1
If Brojac > 3 Then GoTo IZLAZ
Zaustavi (Brojac)
GoTo Provjera1
Ako se be sbadjes samo postavi i ovu proceduru pa cu prepraviti kod.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
Ovaj post je ureden
1
puta. Posljednja izmjena 02.05.2012 10:30 od strane zxz.