Entry

TSE: Drive: Volume: Get: All: How to: How to possible get the volume label of all drives?

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

----------------------------------------------------------------------
--- Knud van Eeden --- 04 October 2004 - 06:45 pm --------------------

TSE: Drive: Volume: Get: All: How to: How to possible get the volume 
label of all drives?

---

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

 // library: drive: get: volume: label: all (filenamemacro=getdrlal.s) 
<author>Homer</author> [kn, ri, mo, 04-10-2004 18:41:50]
 PROC PROCDriveGetVolumeLabelAll()
  // e.g. PROC Main()
  // e.g.  PROCDriveGetVolumeLabelAll()
  // e.g. END
  // e.g.
  // e.g. <F12> Main()
  //
  INTEGER I = 0
  INTEGER driveExistB = 0
  INTEGER driveMinI = 1
  INTEGER driveTotalI = driveMinI - 1
  //
  STRING driveNameS[ 3 ] = ""
  STRING volumeS[ 20 ] = ""
  STRING driveLetterS[ 1 ] = ""
  //
  FOR I = Asc( "a" ) TO Asc( "z" )
   driveLetterS = Chr( I )
   driveNameS = driveLetterS + ":\" // e.g. c:\, d:\, ..., z:\
   driveExistB = GetVolumeInfo( driveNameS, volumeS )
   IF driveExistB
    driveTotalI = driveTotalI + 1
    SetGlobalStr( "driveNameArrayS" + Str( driveTotalI ), drivenameS )
    SetGlobalStr( "driveLabelArrayS" + Str( driveTotalI ), volumeS )
   ENDIF
  ENDFOR
  //
  FOR I = driveMinI TO driveTotalI
   Warn( "This Drive is [  " + GetGlobalStr( "driveNameArrayS" + Str( 
I ) ) + " " + "=" + " " + GetGlobalStr( "driveLabelArrayS" + Str( 
I ) ) + " ]" )
  ENDFOR
  //
 END

 PROC Main()
  PROCDriveGetVolumeLabelAll()
 END

 <F12> Main()

--- 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

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