Requires Robocopy from the resource kit but can be easily changed for
xcopy or copy or scopy or the daunting xxcopy.com mega copy tool.
function CopyFile srcpath,destpath,dfiles,doptions,logpath
if srcpath="" or destpath="" then
-- parse error
put 2 into thisp
if srcpath is empty then put 1 into thisp
return "Error: parameter"&&thisp&&"empty error"
end if
-- defaults
if dfiles is empty or dfiles="all" then put "*.*" into dfiles
put "/e /z /np /sec /r:0 /v /log+:"&logpath into doptions
get shell("START ROBOCOPY" && srcpath && destpath && dfiles && doptions)
return it
end CopyFile
Note: this script is part of the TAOO NT lib.
It's the most primitive version dated 4 years ago ;)
cheers
Xavier
http://monsieurx.com
_______________________________________________
use-revolution mailing list
[email protected]
http://lists.runrev.com/mailman/listinfo/use-revolution
