$dir() Special Folders(Özel Klasörler) Snippet

[SeRDaR406]

/*
$dir() SpecialFolders(Özel Klasörler)

BY SeRDaR406

Bazı özel klasörlerin bulundukları yerleri(klasörlerini) veren

bir kod...
*/

Kullanımı:

$dir(klasör ismi)

Klasör İsimleri:
desktop(masaüstü)
Favorites(sık kullanılanlar)
templates
recent(en son kullanılan dosyaların kaydedildiği yer)
sendto(gönder)
startup(Başlangıç)
startmenu(Başlat Menusunun bulunduğu klasör)
mydocuments(Belgelerim klasörü)

Örnekler:
//echo -a $dir(mydocuments)

//echo -a $dir(fonts)

//echo -a $dir(recent)

vs...

alias -l fol {
  if ($com(dir)) .comclose dir
  .comopen dir wscript.shell
  if ($comerr(dir)) { echo -a Com Objesi açılamadı! | return }
  else {
    var %s = $com(dir,SpecialFolders,3,bstr,$1)
    return $+($com(dir).result,\)
  }
}
alias dir {
  if (!$1) echo -a Hedef klasör belirtilmedi!
  else {
    var %folders = Desktop Favorites templates recent sendto startup startmenu fonts mydocuments 
    if ($istok(%folders,$1,32)) return $fol($1)
    else return Yanlış Klasör Girişi!
  }
}