Liste des disques

DIM d$,i
LIST 1: FULL_SPACE 1
FOR i = 65 TO 90
    d$ = CHR$(34)+CHR$(i)+CHR$(34)
    item_add 1,d$: display
    IF DISK_EXISTS(d$) = 1
        ITEM_ADD 1, " "+d$+": existe"
    END_IF
NEXT i
END

rem ============================================================================
rem               Info_Disc
rem ============================================================================
dim i,n

picture 10 : full_space 10 : 2d_target_is 10 : print_target_is 10
font_bold 10 : font_size 10,12 : font_name 10,"arial"
caption 0,"Info_Disc"
for i = asc("A") to asc("Z")
    if disk_exists(chr$(i)) > 0 then n = n + 1 : Info_Disc(chr$(i),n)
next i
end
rem ============================================================================
SUB Info_Disc(d$,i)
    dim_local taille,libre,rapport,g
    g = 1000/power(1024,3)
    taille = int(disk_kilo_size(d$) * g * 1000) : taille = taille/1000
    libre  = int(disk_kilo_free(d$) * g * 1000) : libre  = libre /1000
    rapport = 1-libre/taille  
    2d_fill_color 255,255,255 : print_locate 20,50+60*(i-1) : print d$ + ":"  
    2d_fill_color 200,150,050 : 2d_rectangle 50,50+60*(i-1),50+500,70+60*(i-1)  
    2d_fill_color 050,150,200 : 2d_rectangle 50,50+60*(i-1),50+500*rapport,70+60*(i-1)
    2d_fill_color 255,255,255
    print_locate 45,80+60*(i-1)
    print str$(libre) + " Go libres sur un total de " + str$(taille) + " Go"    
    print_locate 20,20
    if i = 1
       print "Informations sur l'unique disque dur monté sur votre système"
    else
       print "Informations sur les " + str$(i) + " disques durs montés sur votre système"  
    end_if  
END_SUB
rem ============================================================================