declare integer GetVolumeInformation in win32api ;
string rootdir, string @volumename, integer vnamesize,;
string @volserial, integer a, integer b, string c, integer d
CLEAR
buf1 = NULL
volserial = replicate(chr(0), 4)
a = 0
b = 0
c = ""
d = 0
r = GetVolumeInformation(buf1,@volumename,vnamesize,;
@volserial,a,b,c,d)

? "Volserial: "
v12 = ctobin( allt(volserial) )
? v12
t = tran(ctobin(allt(volserial) ),"@0")
t = strt(t,"0x","")
? t
? ""
?? substr(t,7,2)
?? substr(t,5,2)+"-"
?? substr(t,3,2)
?? substr(t,1,2)