Liste des volumes montés et actifs

Il peut être intéressant de pouvoir accéder à des fichiers sur un volume externe (clés usb, cartes mémoires, etc), mais en général on ne connaît pas le nom du volume sur lequel ils sont montés.
J'avais déjà trouvé d'autres moyens, mais plus compliqués. En voici un, très simple, qui utilise la commande "fsutil". On récupère dans un tableau la liste des volumes actifs avec le nom du périphérique monté correspondant.

Code:

' Liste des volumes montés et actifs avec leur nom
dim fm$, vo$, c$, nv, i
dim v$(20)

fm$ = "Z:\temp"

EXECUTE_WAIT "Command.com /c fsutil fsinfo drives >" + fm$: ' liste de tous les volumes
File_Open_Read 1, fm$
File_ReadLN 1, vo$: File_ReadLn 1, vo$
File_Close 1
nv = 0
FOR i = 12 TO LEN(vo$) STEP 4
    c$ = MID$(vo$, i, 2)
    EXECUTE_WAIT "Command.com /c fsutil fsinfo volumeinfo " + c$ + " >" + fm$
    File_Open_Read 1, fm$
    FILE_READLN 1, a$
    IF LEFT$(a$, 6) <> "Erreur": ' (si volume non actif)
        nv = nv + 1: v$(nv) = c$ + " " + MID$(a$, 17, LEN(a$)-17+1)
    END_IF
    FILE_CLOSE 1
NEXT i
FOR i = 1 TO nv: PRINT v$(i): NEXT i: ' juste pour voir le résultat
END

Pareil, je n'ai pu tester sous Panoramic à cause d'Avast qui fait des misères, mais j'ai testé par ailleurs.

Ca y est, j'ai testé, mais à chaque exécution de command.com il y a affichage d'une fenêtre d'exécution, pas très esthétique. A priori je ne sais pas comment l'inhiber.

Il va falloir que je note tous tes trucs. Tu as de bonnes idées. Je te remercie de nous faire partager tes connaissances.

C'est un plaisir de partager, et je ne me prive pas de profiter de vos bonnes idées (les tiennes en particulier) à vous aussi.

En fait j'ai d'autres méthodes pour trouver les volumes actifs, mais plus compliquées à mettre en oeuvre, par contre elles sont transparentes et n'affichent pas ces écrans désagréables pendant l'exécution.
Je pourrai développer, en cas de demandes pressantes, mais ça sort un peu du cadre de Panoramic..