Totale d'espace des support amovible

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 751 fois - Téléchargée 29 fois

Contenu du snippet

dans la catégorie des script inutile , je vous présente ca :P
Je suis présentement sur un gros projet et j'en avais un peut marre
de me tapper la même source , alors pour me changer les id j'ai écrit ca.

Ca sert as calculer l'espace totale de tout les disque cdr/cdrw qui sont insérer.
Meme si c'est cheap c'est bien organiser , nan ! =-P

Source / Exemple :


menu status,channel {
calcul cd-rom:/countspace 
       } 

alias affich.support dialog -md affich.support affich.support
dialog affich.support {
  title "support"
  size -1 -1 154 93
  option dbu
  text "                                                                                                                         Inserez le prochain support", 1, 29 19 86 21
  button "Ok", 2, 30 57 35 12
  button "Totale", 3, 75 57 35 12
}

on 1:dialog:affich.support:sclick:3:{
if ( %totale == $null ) { halt }
echo -a %totale mo d'espace totale sur touts les supports inserés
         }

on 1:dialog:affich.support:sclick:2:{ dialog -x affich.support | support }

alias erreur1.support dialog -md erreur1.support erreur1.support
dialog erreur1.support {
  title "erreur1.support"
  size -1 -1 154 70
  option dbu
  text "      Le support selectionner n'est pas                       un lecteur de cd-rom", 1, 21 23 112 15
  button "ok", 2, 56 50 29 12, cancel
}

alias erreur2.support dialog -md erreur2.support erreur2.support
dialog erreur2.support {
  title "erreur2.support"
  size -1 -1 154 70
  option dbu
  text "        Le même support as été detecté.                      Veuillez inserez un autre support.", 1, 21 23 112 15
  button "ok", 2, 56 50 29 12, cancel
}

on 1:dialog:erreur2.support:sclick:2:{ affich.support }

alias countspace {
unset %disksize , %disklabel , %lecteur , %totale
%lecteur = $sdir(c:\)
if ( %lecteur == $null ) { echo -a erreur | halt }
if ( $disk( %lecteur ).type != cdrom ) { erreur1.support | unset %lecteur | halt }
support
 } 

alias support {
if ( %disklabel == $disk( %lecteur ).label && %disksize == $disk( %lecteur ).size ) { erreur2.support | halt }
if ( $disk( %lecteur ).size == 0 ) { affich.support | halt }
calc.space
 } 

alias calc.space {
unset %disklabel , %disksize
if ( %totale != $null ) { goto cont1.calc.space }
%totale = 0 
: cont1.calc.space
%disklabel = $disk( %lecteur ).label | %disksize = $disk( %lecteur ).size
%totale = $int($calc($calc($disk( %lecteur ).size / 1000000) + %totale ))
affich.support
                    }

A voir également

Ajouter un commentaire Commentaires
Messages postés
2084
Date d'inscription
jeudi 12 décembre 2002
Statut
Modérateur
Dernière intervention
30 janvier 2011
8
Un peu inutile et très facile à faire.
Messages postés
1
Date d'inscription
dimanche 12 octobre 2003
Statut
Membre
Dernière intervention
12 octobre 2003

no comment
Messages postés
1
Date d'inscription
dimanche 12 octobre 2003
Statut
Membre
Dernière intervention
12 octobre 2003

No Comment
Messages postés
875
Date d'inscription
samedi 17 mai 2003
Statut
Membre
Dernière intervention
22 juin 2012

no comment
Messages postés
311
Date d'inscription
dimanche 23 février 2003
Statut
Membre
Dernière intervention
1 mai 2009

Ta vraiment rien as faire d'autre que de copier ca sur chaque source ? mdr va dormir un peut si ta rien as faire d'autre
Afficher les 6 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.