Function GetVolInfo
LOCAL i			&& counter
LOCAL lnDrvType && DRIVETYPE
LOCAL lcDrive   && string
LOCAL lnDrive   && bitmap of legal drives
LOCAL lpRootPathName,  ;
	  lpVolumeNameBuffer,  ;
	  lpVolumeSerialNumber,  ;
	  lpMaximumComponentLength, ;
	  lpFileSystemFlags,  ;
	  lpFileSystemNameBuffer, ;
	  nVolumeNameSize, ;
	  nFileSystemNameSize
Вот сдесь и происходит ошибка->
DECLARE INTEGER GetDriveType IN WIN32API ;
  STRING lpRootPathName && address of root path 
DECLARE INTEGER GetLogicalDrives in win32api

DECLARE short GetVolumeInformation IN Win32API ;
    STRING  lpRootPathName,  ;
    STRING  lpVolumeNameBuffer,  ;
   INTEGER  nVolumeNameSize,  ;
    STRING  lpVolumeSerialNumber,     ;
    STRING  lpMaximumComponentLength, ;
    STRING  lpFileSystemFlags,  ;
    STRING  lpFileSystemNameBuffer,  ;
   INTEGER  nFileSystemNameSize 

#DEFINE DRIVE_NONE       0  && Cannot be determined.
#DEFINE DRIVE_BAD        1  && Root directory does not exist.
#DEFINE DRIVE_REMOVABLE  2  && Disk can be removed.
#DEFINE DRIVE_FIXED      3  && Disk cannot be removed.
#DEFINE DRIVE_REMOTE     4  && Drive is remote/network drive.
#DEFINE DRIVE_CDROM      5  && The drive is a CD-ROM drive.
#DEFINE DRIVE_RAMDISK    6  && The drive is a RAM disk.

lnDrive = GetLogicalDrives()
    lcDrive = CHR(ASC("A")+ 2 )+":\" && translate to letter (C:)
    lpVolumeNameBuffer = ""
    lnDriveType = DRIVE_REMOVABLE
      STORE SPACE( 255 ) TO lpRootPathName,  ;
                          lpVolumeNameBuffer,  ;
                          lpVolumeSerialNumber,  ;
                          lpMaximumComponentLength, ;
                          lpFileSystemFlags,  ;
                          lpFileSystemNameBuffer
      STORE  255  TO nVolumeNameSize, nFileSystemNameSize
      = GetVolumeInformation(lcDrive, ;
                             @lpVolumeNameBuffer, ;
                             @nVolumeNameSize, ;
                             @lpVolumeSerialNumber,  ;
                             @lpMaximumComponentLength, ;
                             @lpFileSystemFlags,  ;
                             @lpFileSystemNameBuffer,  ;
                             @nFileSystemNameSize )
      lpVolumeNameBuffer = LEFT(lpVolumeNameBuffer, ;
                           AT(CHR( 0 ),lpVolumeNameBuffer)- 1 )
      lnDriveType = GetDriveType(lcDrive)
	cReturnHex = ""
	FOR y =  1  TO LEN(ALLTRIM(lpVolumeSerialNumber))
		cStreng = SUBSTR(lpVolumeSerialNumber,y, 1 )
		cBin = Dec2Bin(ASC(cStreng))
		cHex = Bin2Hex(cBin)
		IF LEN(cHex) =  1 
			cHex = "0" + cHex
		ENDIF
		cReturnHex = cHex + cReturnHex
	ENDFOR y
RETURN cReturnHex