Comment trouver les disques durs ou lecteurs du systeme ?

' teste l'existence des disques sur le système

DIM a%

FOR a%=65 TO 90
  IF DISK_EXISTS(CHR$(a%))=1 THEN PRINT "le disque "+CHR$(a%)+" existe"
NEXT a%

END

dim res%
memo 1 : full_space 1 : bar_both 1 : font_name 1,"Courier"
dll_on "KGF.dll"
res% = dll_call0("GetVolumeList")
clipboard_paste 1
end

SUB Diskinfo()
  ' Volumes actifs + taille totale + taille disponible (en Mo) -> clipboard
  ' 1 ligne par volume, de la forme
  '    X: NomVolume;Taille_totale;Taille_libre;Pourcentage_libre
  DIM_LOCAL q$,fb$,ret%,lect%,drv$,mm%,nn%,i%,k%,v$,a$,b$,t%,l%,p%
  q$ = CHR$(34)+"X"+CHR$(34)
  fb$ = "C:\TEMP\Tbat.bat": ' <===== TEMPORAIRE, AJUSTER ÉVENTUELLEMENT ! ========
  FILE_OPEN_WRITE 9,fb$
  FILE_WRITELN 9,"@echo off"
  ' infos sur les volumes si argument quelconque, sinon seulement les lettres de volumes
  FILE_WRITELN 9,"set INFO=%1"
  FILE_WRITELN 9,"call :Drive A B C D E F G H I J K L M N O P Q R S T U V W X Y Z"
  FILE_WRITELN 9,"set INFO="
  FILE_WRITELN 9,"goto :EOF"
  FILE_WRITELN 9,":Drive"
  FILE_WRITELN 9,"vol %1: > nul 2>nul"
  FILE_WRITELN 9,"If ERRORLEVEL 1 goto Next"
  FILE_WRITELN 9,"if not "+q$+"%INFO%=="+q$+" (vol %1:) else echo %1:"
  FILE_WRITELN 9,":Next"
  FILE_WRITELN 9,"shift"
  FILE_WRITELN 9,"if NOT "+q$+"%1=="+q$+" goto :Drive"
  FILE_CLOSE 9
  EXECUTE_WAIT "CMD.exe /C "+fb$+" | clip"
  FILE_DELETE fb$
  mm% = 950: MEMO mm%: HIDE mm%
  CLIPBOARD_PASTE mm%: ' liste des lettres des volumes montés
  b$ = ""
  FOR i% = 1 TO COUNT(mm%)
    v$ = ITEM_READ$(mm%,i%)
    EXECUTE_WAIT "cmd.exe /c VOL "+v$+" | clip"
    a$ = CLIPBOARD_STRING_PASTE$: k% = INSTR(a$,"s'appelle"): nn% = 0
    IF k% = 0 THEN k% = INSTR(a$,"n'a pas de nom"): IF k%>0 THEN nn% = 1
    IF k%>0 AND v$<>""
        a$ = RIGHT_POS$(a$,k%+10): k% = INSTR(a$,CHR$(13))
        IF nn% = 0
            a$ = v$+" "+LEFT$(a$,k%-1): ' lettre + nom du volume
        ELSE
            a$ = v$+" (pas de nom)"
        END_IF
        t% = DISK_KILO_SIZE(LEFT$(v$,1))/1000: ' taille totale en Moctets
        l% = DISK_KILO_FREE(LEFT$(v$,1))/1000: ' taille libre en Moctets
        p% = 100*l%/t%: ' pourcentage disponible
        b$ = b$+a$+";"+STR$(t%)+";"+STR$(l%)+";"+STR$(p%)+"% "+CHR$(13)+CHR$(10)
    END_IF
  NEXT i%
  CLIPBOARD_STRING_COPY b$
  DELETE mm%
END_SUB

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),450,70+60*(i-1)
    2d_fill_color 050,150,200 : 2d_rectangle 50,50+60*(i-1),450*rapport,70+60*(i-1)
    2d_fill_color 255,255,255 : print_locate 45,80+60*(i-1)
    
    print str$(libre) + " Go libres sur " + str$(taille) + " Go"    
    print_locate 20,20 : print "Informations sur les " + str$(i) + " disques durs montés sur votre système"    
END_SUB
rem ============================================================================