DECLARE INTEGER GetVolumeInformation IN Kernel32.DLL; STRING @,STRING @,INTEGER,INTEGER @,INTEGER @,INTEGER @,STRING @,INTEGER lcRoot="c:\"+CHR(0) lcVolume=SPACE(255) liVolume=LEN(lcVolume) liSerNum=0 liMaxComp=0 liFlags=0 lcFileSystemName=SPACE(255) liFileSystemName=LEN(lcFileSystemName) liErr=GetVolumeInformation(@lcRoot,@lcVolume,liVolume,@liSerNum,@liMaxComp,@liFlags,@lcFileSystemName,liFileSystemName)MartinJ
>>>oFS = CREATEOBJECT("Scripting.FileSystemObject") >>>cDrive = SUBSTR(SYS(16,1),1,2) &&"C:" >>>If oFS.DriveExists(cDrive) >>> oDrv = oFS.Drives.Item(cDrive) >>> lnvol=oDrv.SerialNumber >>> lnvolhex=substr(transform(lnvol,"@0"),3,4)+right(transform(lnvol,"@0"),4) >>> ?lnvolhex >>>ENDIF >>>>>>