thank you ,
>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))
>>>>FOR lnCount = 1 TO lnFileCount
>>>> COPY FILE (laFiles[lnCount, 1]) TO c:\allexcel
>>>>ENDFOR
>>>>
>>>>
>>>>
>>>>thanks