• Home
 · 
• Files/File Controls/Input/Output
 · 
• Get & set a file's attributes

Get & set a file's attributes

Sets a file's attributes. With this you can create archive, hidden, normal,
read-only, and system files.

Inputs
FullFilePath is a string containing the path and filename of a file. FileAttributes is a long integer that contains the value to set as the file's attributes. Use the constants listed below to set this. (SetAttributes only)

Assumes
The default for this function is to set the file's attributes to "archive", which is the standard type of file. To set more than one attribute for a file use the "or" statement. I.E.- FILE_ATTRIBUTE_READONLY or FILE_ATTRIBUTE_HIDDEN. Test for a certain attribute like this: If (GetAttribute And attributeconstant) <> 0 then GetAttribute = attribute defined by constant.

Returns
SetAttributes returns true (1) if successful, otherwise it returns false (0). GetAttributes returns the attributes of FullFilePath

Side Effects
The FILE_ATTRIBUTE_NORMAL (&H80) attribute use to create attribute-less files CAN NOT be combined with any other attribute.

API Declarations
Declare Function SetFileAttributes Lib "kernel32.dll" Alias "SetFileAttributesA" (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long
Declare Function GetFileAttributes Lib "kernel32.dll" Alias "GetFileAttributesA" (ByVal lpFileName As String) As Long

Rate Get & set a file's attributes

• 1
• 2
• 3
• 4
• 5

(3(3 Vote))

'use these constants to set the attributes you want
FILE_ATTRIBUTE_ARCHIVE = &H20
FILE_ATTRIBUTE_COMPRESSED = &H800
FILE_ATTRIBUTE_DIRECTORY = &H10
FILE_ATTRIBUTE_HIDDEN = &H2
FILE_ATTRIBUTE_NORMAL = &H80
FILE_ATTRIBUTE_READONLY = &H1
FILE_ATTRIBUTE_SYSTEM = &H4
Public Function SetAttributes(ByVal FullFilePath As String, Optional ByVal FileAttributes As Long = &H20) As Long
 'makes sure that the file path is not too long
 FullFilePath = Left(FullFilePath, 255)
 SetAttributes = SetFileAttributes(FullFilePath, FileAttributes)
End Function
Public Function GetAttributes(ByVal FullFilePath as String) as Integer
 GetAttributes = GetFileAttributes(FullFilePath)
End Function