Totale d'espace des support amovible

Commenter

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

S'inscrire maintenant

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.

Du même auteur (dj328i)