Navigation:  Examples > Get drive info

http://news.xbwin.com/ot4xb.examples/4/

 

 

 

function ShowDriveInfo(cRoot , cStr )

   local oInfo  := GetDriveInfo(cRoot)

 

   cStr += CRLF + PadC( "| " + cRoot + " |",78,"-")

   if oInfo == NIL

      cStr += CRLF + "Error: Unable to retrieve the volume information."

      cStr += CRLF + cPrintf( "Type of Drive:[%s]",_n2dt_(nGetDriveType(cRoot)) )

   else

      cStr += CRLF + cPrintf( "Label: [%s] Serial:[%lX]" ,;

              oInfo:cLabel , oInfo:nSerial )

      cStr += CRLF + cPrintf( "MaxFileNameLen:[%i] FileSystem:[%s] Type:[%s]",;

           oInfo:nMaxCompLen,oInfo:cFileSystem,_n2dt_(oInfo:nDriveType) )

   end

return cStr