StackOverflow2013

Note that there are some explanatory texts on larger screens.

plurals

PO
text
Body
copied!<pre><code>'Getting and Setting File Attributes Declare Function SetFileAttributes Lib "kernel32" _ Alias "SetFileAttributesA" (ByVal lpFileName As _ String, ByVal dwFileAttributes As Long) As Long Declare Function GetFileAttributes Lib "kernel32" _ Alias "GetFileAttributesA" (ByVal lpFileName As _ String) As Long Public Function GetAttributes(Filename As String, _ Archive As Boolean, Hidden As Boolean, _ ReadOnly As Boolean, System As Boolean) 'Dimension and setup some variables. Dim Data As Long Archive = False: Hidden = False: ReadOnly = False 'Get Data and check for success. Data = GetFileAttributes(Filename) If Data = 0 Then GetAttributes = 0 Else GetAttributes = 1 'Work out what it is. If Data = 128 Then Exit Function If Data - 32 >= 0 Then Archive = True: Data = Data - 32 If Data - 4 >= 0 Then System = True: Data = Data - 4 If Data - 2 >= 0 Then Hidden = True: Data = Data - 2 If Data - 1 >= 0 Then ReadOnly = True: Data = Data - 1 End Function Public Function SetAttributes(Filename As String, _ Archive As Boolean, Hidden As Boolean, _ ReadOnly As Boolean, System As Boolean) 'Dimension a Variable. Dim Data As Long 'Work out what Data should be. Data = 0 If Archive = True Then Data = Data + 32 If Hidden = True Then Data = Data + 2 If ReadOnly = True Then Data = Data + 1 If System = True Then Data = Data + 4 If Data = 0 Then Data = 128 'Set the attributes and check for success. SetAttributes = SetFileAttributes(Filename, Data) End Function </code></pre>

Querying!

Guidance

An individual column

Larger individual text columns get their own page to allow for proper reading.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload