HAven't tested it, i just wrote it down here
Code:
Dim a$
A=dir(yourdir)
do while len(a)
 filecopy a, "a:\" & a
 a=dir
loop