thank you for reply,



is there asimple way to get all *.xls at my pc and insert it at new folder


>See Thread#1382585
>
>>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