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

More information

E