IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Disk veya klasör üzerinde belirlediğiniz klasörde dosyalari alfabetik sıraya göre taşır.

Kullanımı:
/sirala (Aranacak disk veya klasör) (Dosya türü) (Kopyalamak istediğiniz klasör)
/sirala D:\SrjN\IrCbaStarD txt D:\SrjN\Test112

Geliştirmeye açıktır basit şekilde yazdım.

Kod:

sirala {

  var %d $iif($len($1) = 1,$+($1,:\),$1), %e echo 14 -a ***, %a $2, %y $shortfn($3-) | hadd -mu10 kla sör $3-

  if !$exists(%d) { %e 4Belirlediginiz klasör bulunmuyor. | return }  

  if !$exists(%y) { mkdir $replace($3-,$chr(32),$chr(160))  }

  noop $findfile(%d,$+(*.,%a),0,klasor.ayarla $1-)

}

klasor.ayarla { 

  var %d $left($nopath($1-),1), %q $+($hget(kla,sör),\,[  %d ]), %i $nopath($1-) | inc -u5 %w

  if !$exists(%q) { .mkdir %q }  

  $+(.timer,$replace($+(%q,\,%i),$chr(32),%x)) 1 1 .copy -o $shortfn($1-) $replace($+(%q,\,%i),$chr(32),$chr(160))

  .timerbilgi 1 5 echo -at 4Toplam %w dosyasi belirlediginiz klasöre tasindi.

}

Faydalı olabilecek kaynaklar:

MS: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

https://en.wikichip.org/wiki/mirc/identifiers/$findfile
https://en.wikichip.org/wiki/mirc/identifiers/$nopath
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] özendim senden :$