[comp.lang.pascal] Disk labels

CDCKAB%EMUVM1.BITNET@cunyvm.cuny.edu ( Karl Brendel) (05/24/91)

In article 1991May22.055842.4211@menudo.uh.edu, <st10t@elroy.uh.edu>
  wrote:

>I am trying to find a way to get the label off of a diskette soap
>and water seems to ruin it
>
>seriously, though it seems easy to get the file
>specs/pathspecs/bytes free and not but nowhere does any help file
>mention labels and extracting them from a disk
>
>I am running TP5.5 if that help and any help would be appreciated

Call FindFirst and FindNext with Path := 'A:\*.*' and Attr :=
VolumeID to get the "disk label" from a diskette in drive A:. Check
every file returned until one has an attribute of VolumeID or there
are no more files.

+====================================================================+
| Karl Brendel                           Centers for Disease Control |
| Internet: CDCKAB@EMUVM1.BITNET         Epidemiology Program Office |
| Bitnet: CDCKAB@EMUVM1                  Atlanta GA  30093       USA |
|                        Home of Epi Info 5.0                        |
+====================================================================+