No easy way that I know of.

>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