ebVolume (constant)

Description Bit position of a file attribute indicating that a file is the volume label.
Comments This constant is equal to 8.
Example This example dimensions an array and fills it with filenames with Volume attributes. 
Sub Main()
  Dim s$()
  FileList s$, "*", ebVolume
  If ArrayDims(s$) > 0 Then
    MsgBox "The volume name is: " & s(1)
  Else
    MsgBox "No volumes found."
  End If
End Sub
See Also Dir, Dir$ (functions); FileList (statement); SetAttr (statement); GetAttr (function); FileAttr (function).