/xcopy command v1.0 by SReject

;; $xcopy(path\of\folder, path\to\copy\to\)
alias xcopy {
  var %a = a $+ $ticks, %f = $noqt($1)

  if ($file(%f).shortfn) %f = $v1 $+ *
  else return

  .comopen %a Wscript.Shell
  if $comerr { return }

  .comclose %a $com(%a, run, 1, bstr,% $+ comspec% /c xcopy %f $2-, uint, 0, bool, true)
}