XProfan

Declare x&,y&,bereich#,text$,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&

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

    EndIf

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

EndWhile

WaitInput
Dispose bereich#
Dispose bereich2#
End