Zjištění atributů souboru
V modulu deklarujte:
Declare Function GetFileAttributes Lib "kernel32" _
Alias "GetFileAttributesA" _
(ByVal lpFileName As String) As Long
Public Const FILE_ATTRIBUTE_ARCHIVE
= &H20
Public Const FILE_ATTRIBUTE_HIDDEN = &H2
Public Const FILE_ATTRIBUTE_READONLY = &H1
Public Const FILE_ATTRIBUTE_SYSTEM = &H4
Na formulář přidejte tlačítko a na jeho událost Click:
Private Sub Command1_Click()
Dim FileName As String, Attributes As Long
FileName = "C:\MSDOS.SYS"
Attributes& = GetFileAttributes(FileName)
Print "Soubor: " & FileName
Print
Print "Skrytý:" & vbTab & vbTab & _
CBool(Attributes& And FILE_ATTRIBUTE_HIDDEN)
Print "Systémový:" & vbTab & vbTab
& _
CBool(Attributes& And FILE_ATTRIBUTE_SYSTEM)
Print "Archivní:" & vbTab & vbTab &
_
CBool(Attributes& And FILE_ATTRIBUTE_ARCHIVE)
Print "Jen pro čtení:" & vbTab & _
CBool(Attributes& And FILE_ATTRIBUTE_READONLY)
End Sub