He-he, looks odd in VFP and English world... I like "Parameters - nema" :)
Anyway, thanks :)

>>Hi everybody,
>>
>>I need to compare bunch of directories on drive O with same directories name on drive G. I need to find files, which are newer or don't exist and make a list of all discrepencies. I can write this program, but may be somebody has this kind of utility written, so I don't need to re-invent the wheel.
>>
>>Thanks a lot in advance.
>
>Just a little paste from my archives...
>
>

*+ uporeðuje direktorije
>* Program èita fajl Pack_it.cmd (pravi ga pack.prg) i tra?i da se;
>	izabere drugi direktorij. Zatim èita tekuæi i taj drugi direktorij;
>	i to samo fajlove èija su imena (sa eventualnim d?okerima) zapisana;
>	u pack_it.cmd, ispisuje imena, du?ine i vremena za obe verzije,;
>	i oznaku koja je verzija novija (tekuæa ili druga)
>* Parametri: nema
>* istorija: 17.01.95 v1.0
>*-
>close all
>dd=getdir("drugi direktorij")
>x=fopen("pack_it.cmd")
>r=fgets(x)
>* do pron with "newer.txt"
>SET ALTERNATE TO "newer.txt"
>SET ALTERNATE on
>? "File", sys(5)+curd() at 14, dd at 46
>set cons on
>do while !feof(x)
>	n1= adir(w,r)
>	n2= adir(z,dd+r)
>	if n1>0
>		=asort(w)
>	else
>		dime w(1,5)
>		w=""
>	endif
>	if n2>0
>		=asort(z)
>	else
>		dime z(1,5)
>		z=""
>	endif
>	store 1 to i1, i2
>	store .f. to g1, g2
>	do while i1<n1 and i2<n2
>		if !g1 and !g2
>			do cmp
>		endif
>		if g1
>			i1=i1+iif(i1<n1,1,0)
>			g1=.f.
>		endif
>		if g2
>			i2=i2+iif(i2<n2,1,0)
>			g2=.f.
>		endif
>	endd
>	r=fgets(x)
>endd
>SET ALTERNATE TO
>SET ALTERNATE off
>MODIFY COMMAND newer.txt
>
>proc cmp
>do case
>	case w(i1,1)<z(i2,1)
>		_prg=w(i1,1)
>		g1=.t.
>	case w(i1,1)>z(i2,1)
>		_prg=z(i2,1)
>		g2=.t.
>	other
>		_prg=w(i1,1)
>		g1=.t.
>		g2=.t.
>endc
>
>? _prg
>if g1
>	?? w(i1,2) at 14, w(i1,3), w(i1,4)
>endif
>do case
>	case g1 and not g2
>		?? "< " at 43
>	case g2 and not g1
>		?? " >" at 43
>	case w(i1,3)= z(i2,3)
>		do case
>			case w(i1,4) == z(i2,4)
>				?? "==" at 43
>			case w(i1,4) > z(i2,4)
>				?? "< " at 43
>			other
>				?? " >" at 43
>		endc
>	case w(i1,3)> z(i2,3)
>		?? "< " at 43
>	other
>		?? " >" at 43
>endc
>
>if g2
>	?? z(i2,2) at 46, z(i2,3), z(i2,4)
>ENDIF
>

>
>Contents of pack_it.cmd could be like this:
>

*.pr?
>*.?pr
>*.fr?
>*.sc?
>*.lb?
>*.sc?
>opis*.*
>config.*
>*.vc?
>*.pjx
>