GetAttr

[vladimirr]

Люди, как сделать так, чтобы атрибуты файла при использовании функции GetAttr не суммировались (32+2+1=35), а отображались хотя бы через запятую.

[VKar]

Не знаю, у меня они отображаются как константы

[skiperski]

Код: Выделить всё

Public Function test3(ByVal PathName As String) As String
   
    Dim Attr As Long
    Dim s As String
   
    Attr = GetAttr(PathName)
    If (Attr = vbNormal) Then
        s = 0
    Else
        If (Attr And vbReadOnly) Then s = s & "," & vbReadOnly  '1
        If (Attr And vbHidden) Then s = s & "," & vbHidden      '2
        If (Attr And vbSystem) Then s = s & "," & vbSystem      '4
        If (Attr And vbVolume) Then s = s & "," & vbVolume      '8
        If (Attr And vbDirectory) Then s = s & "," & vbDirectory '16
        If (Attr And vbArchive) Then s = s & "," & vbArchive    '32
        If (Attr And vbAlias) Then s = s & "," & vbAlias        '64
        If (Len(s)) Then s = Mid$(s, 2)
    End If
   
    test3 = s
   
End Function

Immediate:

Код: Выделить всё

?test3("C:\DEVELOP\server\b6dm5\vssver.scc")
32
?test3("C:\DEVELOP\server\b6dm5\")
16,32
?test3("C:\DEVELOP\server\b6dm5\modUHTML.bas")
1,32