XProfan

Déclarer x&,y&,bereich#,text$,bereich2#
Faible bereich#,1024
Faible bereich2#,256
Def GetVolumeInformation(8) !"KERNEL32","GetVolumeInformationA"
Cls
String bereich2#,0="A:/"

Whileloop 16

    x&=GetVolumeInformation(bereich2#,bereich#,1024,0,0,0,0,0)

    Si x&

        text$=String$(bereich#,0)
        Imprimer String$(bereich2#,0)+" = "+text$

    EndIf

    Byte bereich2#,0=Byte(bereich2#,0)+1

Endwhile

WaitInput
Dispose bereich#
Dispose bereich2#
Fin