- alias seek {
- ;Sintaxe: //echo -a $seek(C,Fichier)
- ;C étant un disque,vous pouvez mettre un autre disque... (D par exemple)
- ;Erreurs
- if !$2- { echo -a Erreur de sintaxe ( //echo -a $+($chr(36),seek(DISQUE,FICHIER)) ) | halt }
- elseif !$disk($1) { echo -a Erreur: Disque $+($upper($1),:\) inéxistant | halt }
- else {
- ;echos pour faire beau? :P
- echo -a » Analyse du disque $+($upper($1),:\) en cours...
- echo -a » Résultat sur $+($+(",$2-,")) (mirc peux geler) :
- ;resultat
- return » Résultat: $findfile($+($1,:\),* $+ $2- $+ *.*,0,echo -a $+($upper($left($1-,1)),$mid($1-,2,$calc($len($1- -1))))) fichiers concernant $+(",$2-,") trouvés dans le disque $+($upper($1),:\)
- }
- }
alias seek {
;Sintaxe: //echo -a $seek(C,Fichier)
;C étant un disque,vous pouvez mettre un autre disque... (D par exemple)
;Erreurs
if !$2- { echo -a Erreur de sintaxe ( //echo -a $+($chr(36),seek(DISQUE,FICHIER)) ) | halt }
elseif !$disk($1) { echo -a Erreur: Disque $+($upper($1),:\) inéxistant | halt }
else {
;echos pour faire beau? :P
echo -a » Analyse du disque $+($upper($1),:\) en cours...
echo -a » Résultat sur $+($+(",$2-,")) (mirc peux geler) :
;resultat
return » Résultat: $findfile($+($1,:\),* $+ $2- $+ *.*,0,echo -a $+($upper($left($1-,1)),$mid($1-,2,$calc($len($1- -1))))) fichiers concernant $+(",$2-,") trouvés dans le disque $+($upper($1),:\)
}
}