Private Declare Function GetFileAttributes Lib "kernel32" Alias "GetFileAttributesA" (ByVal lpFileName As String) As Long
'GetFileAttributes Constants
Const FILE_ATTRIBUTE_ARCHIVE = &H20
Const FILE_ATTRIBUTE_COMPRESSED = &H800
Const FILE_ATTRIBUTE_DIRECTORY = &H10
Const FILE_ATTRIBUTE_HIDDEN = &H2
Const FILE_ATTRIBUTE_NORMAL = &H80
Const FILE_ATTRIBUTE_READONLY = &H1
Const FILE_ATTRIBUTE_SYSTEM = &H4
Private Sub cGetFileAttributes()
Dim Path As String, Msg As String
Path = "C:\WINDOWS\NOTEPAD.INI"
Att = GetFileAttributes(Path)
If (Att And FILE_ATTRIBUTE_ARCHIVE) <> 0 Then Msg = Msg & "Архивный" & vbCrLf
If (Att And FILE_ATTRIBUTE_COMPRESSED) <> 0 Then Msg = Msg & "Compressed" & vbCrLf
If (Att And FILE_ATTRIBUTE_DIRECTORY) <> 0 Then Msg = Msg & "Directory" & vbCrLf
If (Att And FILE_ATTRIBUTE_HIDDEN) <> 0 Then Msg = Msg & "Скрытый" & vbCrLf
If (Att And FILE_ATTRIBUTE_NORMAL) <> 0 Then Msg = Msg & "Normal" & vbCrLf
If (Att And FILE_ATTRIBUTE_READONLY) <> 0 Then _
Msg = Msg & "Только чтение" & vbCrLf
If (Att And FILE_ATTRIBUTE_SYSTEM) <> 0 Then Msg = Msg & "Системный" & vbCrLf
MsgBox "Атрибуты для " & Path & " :" & vbCrLf & vbCrLf & Msg, _
vbOKOnly + vbInformation
End Sub |
|
