>>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\*.*" >ENDFOR >>
nwdir='c:\vault\' 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 lcSource = nwdir+ADDBS(lcdir)+"*.*" COPY FILE (lcSource) TO "c:\temp\*.*" ENDFOR