>DECLARE INTEGER GetVolumeInformation IN Win32API; > STRING @lpRootPathName,; > STRING @lpVolumeNameBuffer,; > INTEGER nVolumeNameSize,; > INTEGER @lpVolumeSerialNumber,; > INTEGER @lpMaximumComponentLength,; > INTEGER @lpFileSystemFlags,; > STRING @lpFileSystemNameBuffer,; > INTEGER nFileSystemNameSize >STORE SPACE(260) TO lcvolname, lcfilename >STORE 0 TO lnserialno, lnmaxlen, lnsysflags >STORE 260 TO lnvolsize, lnfilesize >lcroot = "C:\" >lnresult = GetVolumeInformation(@lcroot, @lcvolname, lnvolsize, @lnserialno, @lnmaxlen, lnsysflags, @lcfilename, lnfilesize) >? lnserialno>hth,
If Lnserialno < 0 Lnserialno = 0xFFFFFFFF + Lnvolsernum + 1 Endif LcHex = Right(Transform(Lnserialvolsernum, '@0'),8) ? lcHex