'
' GetVolumeInformation - retrieves information about a file system and volume whose root directory is specified.
'
' Author: Joe Strazzere
'
Dim VolName as unsigned
Dim Volume as unsigned
Dim VolType as unsigned
VolName=Allocate(64)
Volume=Allocate(64)
VolType=Allocate(64)
PokeString(Volume,"C:",1)
ret=External("kernel32","GetVolumeInformationA", Volume, VolName, 64, VolSer,0,0, VolType,0)
VolName$=PeekString$(VolName)
VolType$=PeekString$(VolType)
msgbox(VolName$)
'?msgbox(VolType$)
