Brad,

Many thanks for your neat routine....

This is the code I have ended up with and it works a treat!

Copy the tables in the first For..Next loop then..

Close Databases all

If lcExt=".DBF"
	mytable = Juststem(lcNewfilename )
	mytablefull = (mytable)+'.dbf'
	     If File(mytablefull )
		If Not Used(mytable)
		     Select 0
		     Use (mytable) In 0 				
		     SELECT (mytable)						
		     logging('Alias is '+alias())						
						
		Endid
             Endif
Endif

Happy new year!
-Bryan