RESPUESTA A LA PREGUNTA 1039


* Rutina para retornar el Label y Serie de un disco duro
  Set Talk Off
  Clear
  
  !Vol C: >Lab.000            && Se ejecuta una instrucci¢n Vol y se
                              && almacena en un temporal llamado 'Lab.000'
  mFHand  = FOpen("Lab.000")  && Apertura del archivo temporal.
  mMove   = FSeek(mFHand,24)  && Se ubica el cursor en la posici¢n 24
  mLabel  = FRead(mFHand,11)  && Se leen los 11 bytes que tiene la
                              && etiqueta del vol£men.
  mFSee   = FSeek(mFHand,0,2) 
  mFSee   = FSeek(mFHand,mFSee-11) && Se posiciona nuevamente el puntero.
  mSerial = FRead(mFHand,9)   && Se leen los 9 bytes que tiene el n£mero
                              && de Serie del vol£men.
  =FClose(mFHand)             && Se cierra el archivo temporal
  Delete File Lab.000         && Eliminamos el archivo temporal
  
* Impresi¢n de los resultados
  @ 10,30 Say " Label es: " + mLabel
  @ 11,30 Say "    Serie: " + mSerial
  Return
* ------


Juan N. Pineda
jpineda@ithacalink.com