FUNCTION PegaNumeroHd PARAM drive IF pcount() = 0 DRIVE = "c:\" ENDIF #DEFINE MAX_FILENAME_LEN 256 LOCAL ser,i,j,s,s2 DECLARE integer GetVolumeInformation in Win32API; string lpRootPathName,; string lpVolumeNameBuffer,; integer nVolumeNameSize,; integer @lpVolumeSerialNumber,; integer @lpMaximumComponentLength,; integer @lpFileSystemFlags,; string lpFileSystemNameBuffer ,; integer nFileSystemNameSize STORE 0 to ser,i,j STORE space(128) to s,s2 x=GetVolumeInformation(drive,s,MAX_FILENAME_LEN,@ser,@i,@j,s2,MAX_FILENAME_LEN)