>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 > >