XProfan

Declare x&,y&,area#,Text$,area2#
Dim area#,1024
Dim area2#,256
Def GetVolumeInformation(8) !"KERNEL32","GetVolumeInformationA"
Cls
String area2#,0="A:/"

Whileloop 16

    x&=GetVolumeInformation(area2#,area#,1024,0,0,0,0,0)

    If x&

        Text$=String $(area#,0)
        Print String $(area2#,0)+" = "+Text$

    EndIf

    byte area2#,0=byte(area2#,0)+1

EndWhile

WaitInput
Dispose area#
Dispose area2#
End