Place libre sur un disque

Diskfree("C:")
message "disque C: "+clipboard_string_paste$+" M. libres"
END

SUB Diskfree(v$)
' Place disponible sur le volume v$ (de la forme 'X:') -> en Mb dans le clipboard
DIM_LOCAL a$
EXECUTE_WAIT "cmd.exe /c DIR /-C "+v$+" | findstr "+CHR$(34)+"libres"+CHR$(34)+" | clip"
a$ = TRIM$(MID$(CLIPBOARD_STRING_PASTE$,24,16))
CLIPBOARD_STRING_COPY LEFT$(a$,LEN(a$)-6)
END_SUB

message str$(disk_kilo_free("c"))+" octets libres sur C:\"

 message str$(disk_kilo_free("c"))+" kilo-octets libres sur C:\"

message "taille du disque C : " + str$(disk_kilo_size("C")) + " kilo-octets"

DIM a$,b$,k%,r%

WIDTH 0,400: HEIGHT 0,100: BORDER_SMALL 0: CAPTION 0," - VOLUMES  MONTÉS -"
FONT_NAME 0,"Lucida Console": FONT_SIZE 0,10
GRID 1: WIDTH 1,315: HEIGHT 1,150: GRID_COLUMN 1,5: GRID_ROW 1,2
GRID_ONE_COLUMN_WIDTH 1,1,24: GRID_ONE_COLUMN_WIDTH 1,2,117: GRID_ONE_COLUMN_WIDTH 1,5,36
GRID_ROW_HEIGHT 1,19
GRID_WRITE 1,1,2,"Volume": GRID_WRITE 1,1,3,"Total": GRID_WRITE 1,1,4,"Libre"
GRID_WRITE 1,1,5,"%"
WIDTH 0,WIDTH(1)+20

Diskinfo()
a$ = clipboard_string_paste$
k% = INSTR(a$,CHR$(13))
r% = 1
WHILE k% > 0
    r% = r%+1: b$ = LEFT$(a$,k%-1): a$ = RIGHT_POS$(a$,k%+2)
    GRID_WRITE 1,r%,1,LEFT$(b$,2): k% = INSTR(b$,";")
    GRID_WRITE 1,r%,2,RIGHT_POS$(LEFT$(b$,k%-1),4): b$ = RIGHT_POS$(b$,k%+1)
    k% = INSTR(b$,";"): GRID_WRITE 1,r%,3,LEFT$(b$,k%-1): b$ = RIGHT_POS$(b$,k%+1)
    k% = INSTR(b$,";"): GRID_WRITE 1,r%,4,LEFT$(b$,k%-1): GRID_WRITE 1,r%,5,RIGHT_POS$(b$,k%+1)
    k% = INSTR(a$,CHR$(13))
END_WHILE
GRID_ROW 1,r%: HEIGHT 1,r%*21: HEIGHT 0,HEIGHT(1)+38
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 ret%,lect%,drv$,mm%,i%,k%,v$,a$,b$,t%,l%,p%
DLL_ON "kernel32.dll": ret% = DLL_CALL0("GetLogicalDrives")
drv$ = ""
FOR lect% = 0 TO 25
    IF BIN_AND(ret%,POWER(2,lect%))>0 THEN drv$=drv$+CHR$(65+lect%)+":"+CHR$(13)+CHR$(10)
NEXT lect%
DLL_OFF
mm% = 950: MEMO mm%: HIDE mm%
item_add mm%,drv$
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")
    IF k%>0 AND v$<>""
        a$ = RIGHT_POS$(a$,k%+10): k% = INSTR(a$,CHR$(13))
        a$ = v$+" "+LEFT$(a$,k%-1): ' lettre + nom du volume
        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$
END_SUB
' ==============================================================================

CAPTION 0,"         -  VOLUMES  MONTÉS  -   (tailles en Mb)  -"

dim i
for i=65 to 90
      if disk_exists(chr$(i))=1 then print chr$(i);":\"
next i

rem ============================================================================
rem               GetLogicalDrives
rem ============================================================================
rem Déterminer la liste des lecteurs logiques disponibles sur le PC.
rem Un appel à la fonction GetLogicalDrives de la kernel.dll renvoie une valeur
rem décimale.
rem Cette valeur décimale correspond à une valeur en binaire sur 32 bits.
rem Le bit le moins significatif (le 1er bit à partir de la droite) correspond
rem au lecteur A:\, le bit suivant correspond au lecteur B:\ et aisi de suite.
rem Le 26ème bit correspond au lecteur Z:\.
rem Les bits de 27 à 32 sont forcement à zéro.
rem ----------------------------------------------------------------------------
rem Pour déterminer quels sont les bits à 1, on utilse la fonction BIN_AND(v1,v2).
rem Avec v1 = la valeur de retour de GetLogicalDrives
rem et   v2 = 2 à la puissance le numéro du bit à tester.
rem Si le résultat de BIN_AND(v1,v2) est positif, cela prouve que le bit à tester
rem est mis à 1 et que le lecteur qui lui correspond existe.
rem ============================================================================
dim ret%,lecteur,driv$
width 0,1000
alpha 1 : left 1,10   : font_name 1,"tahoma" : font_size 1,16 : font_color 1,0,0,255
alpha 2 : left 2,500  : font_name 2,"tahoma" : font_size 2,16 : font_color 2,0,0,255
dll_on "kernel32.dll"
ret% = dll_call0("GetLogicalDrives")
driv$ = "Liste des lecteurs logiques disponibles sur le PC."+chr$(13)+ chr$(13)
driv$ = driv$ + "Par GetLogicalDrives de kernell.dll" + chr$(13)+chr$(13)
for lecteur = 0 to 25
    if bin_and(ret%,power(2,lecteur))> 0
       driv$ =  driv$ + string$(30," ") +chr$(65+lecteur) + ":\ existe " + chr$(13)
    end_if
next lecteur
caption 1,driv$

dll_off
rem ============================================================================

driv$ = "Liste des lecteurs logiques disponibles sur le PC."+chr$(13)+ chr$(13)
driv$ = driv$ + "Par la fonction disk_exists de Panoramic" + chr$(13) + chr$(13)
for lecteur = 0 to 25
    if disk_exists (chr$(65+lecteur)) > 0
        driv$ =  driv$ + string$(30," ") +chr$(65+lecteur) + ":\ existe " + chr$(13)
    end_if
next lecteur
caption 2,driv$
rem ============================================================================

DIM a$,b$,k%,r%

WIDTH 0,400: HEIGHT 0,100: BORDER_SMALL 0: CAPTION 0," - VOLUMES  MONTÉS -"
FONT_NAME 0,"Lucida Console": FONT_SIZE 0,10: COLOR 0,255,0,0
GRID 1: TOP 1,2: LEFT 1,2: WIDTH 1,315: HEIGHT 1,150: GRID_COLUMN 1,5: GRID_ROW 1,2
GRID_ONE_COLUMN_WIDTH 1,1,24: GRID_ONE_COLUMN_WIDTH 1,2,117: GRID_ONE_COLUMN_WIDTH 1,5,36
GRID_ROW_HEIGHT 1,19
GRID_WRITE 1,1,2,"Volume": GRID_WRITE 1,1,3,"Total": GRID_WRITE 1,1,4,"Libre"
GRID_WRITE 1,1,5,"%"
WIDTH 0,WIDTH(1)+20

Diskinfo()
a$ = CLIPBOARD_STRING_PASTE$
k% = INSTR(a$,CHR$(13))
r% = 1
WHILE k% > 0
    r% = r%+1: b$ = LEFT$(a$,k%-1): a$ = RIGHT_POS$(a$,k%+2)
    GRID_WRITE 1,r%,1,LEFT$(b$,2): k% = INSTR(b$,";")
    GRID_WRITE 1,r%,2,RIGHT_POS$(LEFT$(b$,k%-1),4): b$ = RIGHT_POS$(b$,k%+1)
    k% = INSTR(b$,";"): GRID_WRITE 1,r%,3,LEFT$(b$,k%-1): b$ = RIGHT_POS$(b$,k%+1)
    k% = INSTR(b$,";"): GRID_WRITE 1,r%,4,LEFT$(b$,k%-1): GRID_WRITE 1,r%,5,RIGHT_POS$(b$,k%+1)
    k% = INSTR(a$,CHR$(13))
END_WHILE
GRID_ROW 1,r%: HEIGHT 1,r%*21: HEIGHT 0,HEIGHT(1)+38
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 mm%,i%,k%,v$,a$,b$,t%,l%,p%
mm% = 950: MEMO mm%: HIDE mm%
FOR i% = 0 TO 25
    IF DISK_EXISTS(CHR$(65+i%))>0 THEN ITEM_ADD mm%,CHR$(65+i%)+":"
NEXT i%
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")
    IF k%>0 AND v$<>""
        a$ = RIGHT_POS$(a$,k%+10): k% = INSTR(a$,CHR$(13))
        a$ = v$+" "+LEFT$(a$,k%-1): ' lettre + nom du volume
        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
' ==============================================================================

DIM a$,b$,k%,r%

WIDTH 0,400: HEIGHT 0,100: BORDER_SMALL 0
CAPTION 0,"         -  VOLUMES  MONTÉS  -   (tailles en Mb)  -"
FONT_NAME 0,"Lucida Console": FONT_SIZE 0,10: COLOR 0,255,0,0
GRID 1: TOP 1,2: LEFT 1,2: WIDTH 1,315: HEIGHT 1,150: GRID_COLUMN 1,5: GRID_ROW 1,2
GRID_ONE_COLUMN_WIDTH 1,1,24: GRID_ONE_COLUMN_WIDTH 1,2,117: GRID_ONE_COLUMN_WIDTH 1,5,36
GRID_ROW_HEIGHT 1,19
GRID_WRITE 1,1,2,"Volume": GRID_WRITE 1,1,3,"Total": GRID_WRITE 1,1,4,"Libre"
GRID_WRITE 1,1,5,"%"
WIDTH 0,WIDTH(1)+20

Diskinfo()
a$ = clipboard_string_paste$
k% = INSTR(a$,CHR$(13))
r% = 1
WHILE k% > 0
    r% = r%+1: b$ = LEFT$(a$,k%-1): a$ = RIGHT_POS$(a$,k%+2)
    GRID_WRITE 1,r%,1,LEFT$(b$,2): k% = INSTR(b$,";")
    GRID_WRITE 1,r%,2,RIGHT_POS$(LEFT$(b$,k%-1),4): b$ = RIGHT_POS$(b$,k%+1)
    k% = INSTR(b$,";"): GRID_WRITE 1,r%,3,LEFT$(b$,k%-1): b$ = RIGHT_POS$(b$,k%+1)
    k% = INSTR(b$,";"): GRID_WRITE 1,r%,4,LEFT$(b$,k%-1): GRID_WRITE 1,r%,5,RIGHT_POS$(b$,k%+1)
    k% = INSTR(a$,CHR$(13))
END_WHILE
GRID_ROW 1,r%: HEIGHT 1,r%*21: HEIGHT 0,HEIGHT(1)+38
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 ret%,lect%,drv$,mm%,nn%,i%,k%,v$,a$,b$,t%,l%,p%
DLL_ON "kernel32.dll": ret% = DLL_CALL0("GetLogicalDrives")
drv$ = ""
FOR lect% = 0 TO 25
    IF BIN_AND(ret%,POWER(2,lect%))>0 THEN drv$=drv$+CHR$(65+lect%)+":"+CHR$(13)+CHR$(10)
NEXT lect%
DLL_OFF
mm% = 950: MEMO mm%: HIDE mm%
item_add mm%,drv$
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$
END_SUB
' ==============================================================================

DIM a$,b$,k%,r%

WIDTH 0,400: HEIGHT 0,100: BORDER_SMALL 0
CAPTION 0,"        -  VOLUMES  MONTÉS  -  (tailles en Mb)  -"
FONT_NAME 0,"Lucida Console": FONT_SIZE 0,10: COLOR 0,255,0,0
GRID 1: TOP 1,2: LEFT 1,2: WIDTH 1,315: HEIGHT 1,150: GRID_COLUMN 1,5: GRID_ROW 1,2
GRID_ONE_COLUMN_WIDTH 1,1,24: GRID_ONE_COLUMN_WIDTH 1,2,117: GRID_ONE_COLUMN_WIDTH 1,5,36
GRID_ROW_HEIGHT 1,19
GRID_WRITE 1,1,2,"Volume": GRID_WRITE 1,1,3,"Total": GRID_WRITE 1,1,4,"Libre"
GRID_WRITE 1,1,5,"%"
WIDTH 0,WIDTH(1)+20

Diskinfo()
a$ = clipboard_string_paste$
k% = INSTR(a$,CHR$(13))
r% = 1
WHILE k% > 0
    r% = r%+1: b$ = LEFT$(a$,k%-1): a$ = RIGHT_POS$(a$,k%+2)
    GRID_WRITE 1,r%,1,LEFT$(b$,2): k% = INSTR(b$,";")
    GRID_WRITE 1,r%,2,RIGHT_POS$(LEFT$(b$,k%-1),4): b$ = RIGHT_POS$(b$,k%+1)
    k% = INSTR(b$,";"): GRID_WRITE 1,r%,3,LEFT$(b$,k%-1): b$ = RIGHT_POS$(b$,k%+1)
    k% = INSTR(b$,";"): GRID_WRITE 1,r%,4,LEFT$(b$,k%-1): GRID_WRITE 1,r%,5,RIGHT_POS$(b$,k%+1)
    k% = INSTR(a$,CHR$(13))
END_WHILE
GRID_ROW 1,r%: HEIGHT 1,r%*21: HEIGHT 0,HEIGHT(1)+38
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%
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$
END_SUB
' ==============================================================================