Entry

TSE: Drive: Volume: Search: All: How to: How to possible search the volume label of all drives?

Oct 4th, 2004 10:42
Knud van Eeden,

----------------------------------------------------------------------
--- Knud van Eeden --- 04 October 2004 - 07:19 pm --------------------

TSE: Drive: Volume: Search: All: How to: How to possible search the 
volume label of all drives?

---

--- cut here: begin --------------------------------------------------

 // library: string: get: drive: volume: label 
(filenamemacro=getstvol.s) [kn, ri, mo, 04-10-2004 19:16:22]
 STRING PROC FNStringGetSearchDriveVolumeLabelS( STRING s )
  // e.g. PROC Main()
  // e.g.  Message( FNStringGetSearchDriveVolumeLabelS( "PKBACK# 
001" ) ) // gives e.g. "g:\"
  // e.g. END
  // e.g.
  // e.g. <F12> Main()
  INTEGER drivefoundB = FALSE
  INTEGER driveExistB = 0
  INTEGER driveMinI = Asc( "a" )
  INTEGER I = driveMinI - 1
  //
  STRING driveNameS[ 3 ] = ""
  STRING volumeS[ 20 ] = ""
  STRING driveLetterS[ 1 ] = ""
  STRING resultS[ 255 ] = ""
  //
  REPEAT
   I = I + 1
   driveLetterS = Chr( I )
   driveNameS = driveLetterS + ":\" // e.g. c:\, d:\, ..., z:\
   driveExistB = GetVolumeInfo( driveNameS, volumeS )
   IF driveExistB
    drivefoundB = ( Lower( s ) == Lower( volumeS ) )
   ENDIF
  UNTIL ( I >= Asc( "z" ) ) OR drivefoundB
  //
  IF drivefoundB
   resultS = drivenameS
  ELSE
   resultS = "<DRIVE NOT FOUND>"
  ENDIF
  //
  RETURN( resultS )
  //
 END

--- cut here: end ----------------------------------------------------

---
---

Internet: see also:

---

TSE: Drive: Link: Overview: Can you give an overview of links about a 
drive?
http://www.faqts.com/knowledge_base/view.phtml/aid/31763/fid/896

----------------------------------------------------------------------