XProfan

Declarar x&,y&,bereich#,texto$,bereich2#
Dim bereich#,1024
Dim bereich2#,256
Def GetVolumeInformation(8) !"KERNEL32","GetVolumeInformationA"
Cls
String bereich2#,0="A:/"

Whileloop 16

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

    If x&

        texto$=String$(bereich#,0)
        Imprimir String$(bereich2#,0)+" = "+texto$

    EndIf

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

EndWhile

WaitInput
Disponer bereich#
Disponer bereich2#
End