December 1, 2005 - WinTask - GetVolumeInformation

'
' GetVolumeInformation - retrieves information about a file system and volume whose root directory is specified.
'

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$)