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
Shrnutí AI: 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.
Zdrojový kód
'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
Původní komentáře (3)
Obnoveno z Wayback Machine