Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!usc!zaphod.mps.ohio-state.edu!think.com!hsdndev!cmcl2!adm!news
From: CDCKAB%EMUVM1.BITNET@cunyvm.cuny.edu ( Karl Brendel)
Newsgroups: comp.lang.pascal
Subject: Re: Disk labels (was Wondering)
Message-ID: <27010@adm.brl.mil>
Date: 24 May 91 15:56:46 GMT
Sender: news@adm.brl.mil
Lines: 23

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