Try this:
Code:
alias isfilew {
  var %a = isfilew $+ $ticks, %b
  .comopen %a Scripting.FileSystemObject
  if ($comerr) return
  if ($com(%a,FileExists,1,bstr,$1)) %b = $com(%a).result
  .comclose %a
  return %b
}


Edit:
here's a more flexible solution. Usage is $existsw(path,N)
If N = 1, it checks for files (same as $isfile)
If N = 2, it checks for directories (same as $isdir)
Otherwise it checks for either (same as $exists)
Code:
alias existsw {
  var %a = isfilew $+ $ticks, %b
  .comopen %a Scripting.FileSystemObject
  if ($comerr) return
  if $2 !isnum 1-2 {
    if ($com(%a,FileExists,1,bstr,$1)) %b = $com(%a).result
    if (!%b && ($com(%a,FolderExists,1,bstr,$1))) %b = $com(%a).result
  }
  elseif $2 == 1 {
    if ($com(%a,FileExists,1,bstr,$1)) %b = $com(%a).result
  }
  elseif ($com(%a,FolderExists,1,bstr,$1)) %b = $com(%a).result
  .comclose %a
  return %b
}

Last edited by qwerty; 26/08/08 02:18 AM.