[ByDeniS]

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

alias -l nfindfile return $qt($findfile($remove($mircexe,$gettok($mircexe,-1,92)),$1,1))
alias -l nfindfile2 return $findfile($remove($mircexe,$gettok($mircexe,-1,92)),$1,1)
alias -l nfindfile3 return $qt($shortfn($findfile($remove($mircexe,$gettok($mircexe,-1,92)),$1,1)))
alias -l nfindfile4 return $shortfn($findfile($remove($mircexe,$gettok($mircexe,-1,92)),$1,1))
alias ndir {
  if ($isid) && ($1) && ($nfindfile2($1)) && (!$2) return $nfindfile($1)
  if ($isid) && ($1) && ($nfindfile2($1)) && ($2) && (!$3) return $nflag($1,$2)
  if ($isid) && ($1) && ($nfindfile2($1)) && ($2) && ($3) return $nfatal(fazla)
  if ($isid) && (!$1) return $nfatal(bos)
  if ($isid) && ($1) && (!$nfindfile2($1)) return $nfatal(yok)
}
alias nfatal {
  if ($isid) && ($1 == bos) echo -a Bir dosya adı girmelisiniz.
  if ($isid) && ($1 == yok) echo -a Böyle bir dosya mirc klasörünüzde yok.
  if ($isid) && ($1 == fazla) echo -a Fazla parametre girdiniz.
  if ($isid) && ($1 == flag) echo -a Geçersiz parametre girdiniz.
}
alias nflag {
  if ($isid) && ($2 == -q) return $nfindfile2($1)
  if ($isid) && ($2 == -s) return $nfindfile3($1) 
  if ($isid) && ($2 == -qs) || ($2 == -sq) return $nfindfile4($1) 
  if ($isid) && ($2 != -q) || ($2 != -s) || ($2 != -qs) || ($2 != -sq) return $nfatal(flag)
}

Yukarıdaki kodları remotenize koyduktan sonra birşey yapmanıza gerek yok. Kullanımı gayet basittir.
Kullanacağınız yere $ndir(DOSYA,-FLAG) olarak yazabilirsiniz.

Örnekler :

$ndir(dcx.dll) Dosya dizinini "C:\mirc\dcx.dll" olarak verir.
$ndir(dcx.dll,-q) Dosya dizinini C:\mirc\dcx.dll olarak verir.
$ndir(dcx.dll,-s) Dosya dizinini "$shortfn()" olarak verir.
$ndir(dcx.dll,-qs) Dosya dizinin " olamadan $shortfn() olarak verir.


Kıyaslamalar :

$scriptdirdcx\dcx.dll = $ndir(dcx.dll)
$mircdirdll\dcx\dcx.dll = $ndir(dcx.dll)
$qt($findfile($mircdirdcx.dll),dcx.dll,1) = $ndir(dcx.dll)

vs.. vs.. Basitligi görmüssünüzdür.


Bu çalışmayı mirc 6.31'deki $mircdir sorunu üzerine yaptım lahsen kullanmaya başladım ve sizlerle paylaşmak istedim.
Umarım işinize yarar.


İçerisinde kullanılanlar :

$mircexe
$findfile
$qt
$shortfn
$remove
$gettok


Saygılarımla