TOTALE D'ESPACE DES SUPPORT AMOVIBLE

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
                    }