Unnamed

alias BrowseForFolder {
  comopen BFF Shell.Application
  if ($comerr) { echo comopen failed | halt }
  echo Com: $com(BFF,BrowseForFolder,3,i4,$1,string,$2,i4,$3,string,$4,dispatch* Items)
  echo Result: $com(BFF).result
  comclose BFF
  if $com(Items) {
    echo Com: $com(Items,Items,3,dispatch* Item)
    echo Result: $com(Items).result
    comclose Items
  }
  if $com(Item) {
    echo Com: $com(Item,Item,3,dispatch* Path)
    echo Result: $com(Item).result
    comclose Item
  }
  if $com(Path) {
    echo Com  $com(Path,Path,3)
    echo Path: $com(Path).result
    comclose Path

  }
}