How to use the QM code to achieve the following CMD code effect

[Kevin]

this should do what ya need

Code:

Copy      Help

int i dm
str s(" :\") s2
dm=GetLogicalDrives ;;32-bit mask of available drives
for i 0 32
,if(dm>>i&1)
,,s[0]='A'+i
,,sub.GetVolumeName(s s2)
,,if s2="DATA"
,,,out s
#sub GetVolumeName
function ~DriveLetter ~&DriveName
DriveName.all(100)
GetVolumeInformation DriveLetter DriveName 100 0 0 0 0 0
DriveName.fix
if(!DriveName.len) DriveName="e" ;;not set
ret