>fso = CREATEOBJECT("Scripting.FileSystemObject") >lnNum =adir(ladir,'c:\vault\FP*','D') &&& 'Directory names that start with FP > asort(ladir,3) &&& XXX i need reverse sort so that latest directory shows up first > > for each ladir in 'c:\vault' &&& XXX go through each directory > > open directory ??? > > FSO.CopyFile() &&& copy all files in directory to c:/temp > >endfor >
lnNum =adir(ladir,'c:\vault\FP*','D') && 'Directory names that start with FP asort(ladir,3) && XXX i need reverse sort so that latest directory shows up first FOR EACH lcdir IN ladir && XXX go through each directory lcSource = ADDBS(lcdir)+"*.*" COPY FILE (lcSource) TO "c:\temp\*.*" ENDFORNOT TESTED!