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