Kod: Kodu kopyalamak için üzerine çift tıklayın!
on *:input:#:{
if $1 == .txtsil {
if (!$2) { .timer -h 1 500 echo -at Txt dosyası belirtiniz. }
elseif $findfile($mircdirdosya,$iif($right($2-,4) == .txt,$2-,$+($2-,.txt)),0) == 1 {
.remove $qt($findfile($mircdirdosya,$iif($right($2-,4) == .txt,$2-,$+($2-,.txt)),1))
.timer -h 1 500 echo -at 02 $iif($right($2-,4) == .txt,$2-,$+($2-,.txt)) 04Dosyası silindi.
}
else {
.timer -h 1 500 echo -at 02 $2- 04Dosyası bulunamadı.
}
}
if $1 == .txtsilall {
if $findfile($mircdirdosya,*.txt,0) == 0 {
.timer -h 1 500 echo -at 04 Dosya bulunamadı.
}
elseif $findfile($mircdirdosya,*.txt,0) > 1 {
var %t = $findfile($mircdirdosya,*.txt,0), %s
while %t {
.remove $qt($findfile($mircdirdosya,*.txt,%t))
dec %t
inc %s
}
.timer -h 1 500 echo -at 02 %s 04Adet dosya silindi.
}
else {
.timer -h 1 500 echo -at 04Tek bir tane dosya var. Dosya ismi:02 $token($findfile($mircdirdosya,*.txt,1),-1,92)
}
}
if $1 == .txtall {
if $findfile($mircdirdosya,*.txt,0) == 0 {
.timer -h 1 500 echo -at 04Dosya bulunamadı.
}
else {
var %t = $findfile($mircdirdosya,*.txt,0), %s = 1
while %s <= %t {
.timer -h 1 500 echo -at $token($findfile($mircdirdosya,*.txt,%s),-1,92)
inc %s
}
.timer 1 1 echo -at 04 %t Adet dosya bulundu.
}
}
}
Mirc.exe nin bulunduğu klasörün içindeki dosya klasöründeki .txt uzantılı dosyaları siler.