hi,
i try as below it works,

is there away to search at c:\all folders and subfolders and hiden folders

SET DEFAULT TO c:\
   lnFileCount = ADIR(laFiles, (thisform.text1.value))&&*.xls,doc.....etc
FOR lnCount = 1 TO lnFileCount
      COPY FILE (laFiles[lnCount, 1]) TO c:\allexcel
ENDFOR

thanks