Get & set a file's attributes
Sets a file's attributes. With this you can create archive, hidden, normal, read-only, and system files.
AI
AI Summary: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Source Code
'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 <html> <head> <meta http-equiv="Page-Enter" content="revealTrans(Duration=3.0,Transition=12)"> <meta http-equiv="Page-Exit" content="revealTrans(Duration=3.0,Transition=12)"> </head> <body> <a href="http://www.dev-center.com">Dev-Center.com</a> </body> </html> Upload
Original Comments (3)
Recovered from Wayback Machine