Try this:
Code:
[color:green]; Syntax: $delempty(folder path)
; or /delempty <folder path>
; returns 1 if it successfully deleted an 'empty' folder,
; otherwise $null[/color]
alias delempty {
  if !$isdir($1-) || $findfile($1-,*,1) { return }
  var %a = delempty $+ $ticks
  .comopen %a Scripting.FileSystemObject
  if $comerr { return }
  .comclose %a $com(%a,DeleteFolder,1,bstr*,$gettok($remove($1-,"),1-,92))
  if !$isdir($1-) { return 1 }
}

Last edited by qwerty; 22/02/05 10:48 AM.
/.timerQ 1 0 echo /.timerQ 1 0 $timer(Q).com