File - Attributi files - modifica attributi

Private Declare Function GetFileAttributes Lib "kernel32" Alias "GetFileAttributesA" (ByVal lpFileName As String) As Long

Private Declare Function SetFileAttributes Lib "kernel32" Alias "SetFileAttributesA" (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long
Const FILE_ATTRIBUTE_ARCHIVE = &H20
Const FILE_ATTRIBUTE_HIDDEN = &H2
Const FILE_ATTRIBUTE_NORMAL = &H80
Const FILE_ATTRIBUTE_READONLY = &H1
Const FILE_ATTRIBUTE_SYSTEM = &H4
Dim NomeFile As String
Private Sub Command1_Click()
Frame1.Visible = True
End Sub

Private Sub Command2_Click()
Label1 = ""
Label4 = ""
Check1.Value = 0
Check2.Value = 0
Check3.Value = 0
Frame1.Visible = False

CommonDialog1.ShowOpen
NomeFile = CommonDialog1.FileName
retval = GetFileAttributes(NomeFile)
Label1 = (NomeFile)
Select Case retval
Case Is = FILE_ATTRIBUTE_ARCHIVE
Label4 = "File di archivio"
Check2.Value = 1
Case Is = FILE_ATTRIBUTE_HIDDEN
Label4 = "File nascosto"
Check3.Value = 1
Case Is = FILE_ATTRIBUTE_NORMAL
Label4 = "File senza attributi"
Case Is = FILE_ATTRIBUTE_READONLY
Label4 = "File di sola lettura"
Check1.Value = 1
Case Is = FILE_ATTRIBUTE_SYSTEM
Label4 = "File di Sistema"

End Select
Command1.Visible = True
End Sub

Private Sub Command3_Click()
Dim fileattribs As Long
If Check1.Value = 1 Then fileattribs = FILE_ATTRIBUTE_READONLY
If Check2.Value = 1 Then fileattribs = FILE_ATTRIBUTE_ARCHIVE
If Check3.Value = 1 Then fileattribs = FILE_ATTRIBUTE_HIDDEN


retval = SetFileAttributes(NomeFile, fileattribs)

End Sub