remdir { var %f = $remove($$1-,") .!echo -q $regsub(%f,/\\*$/,,%f) if !$isdir(%f) { return } var %a = com $+ $ticks .comopen %a Scripting.FileSystemObject if $comerr { return } %f = $com(%a,DeleteFolder,3,bstr,%f) .comclose %a return %f }