كيف تغيير خاصية ملف من للقراءة الى ارشيف

Private Declare Function SetFileAttributes Lib _
"kernel32" Alias "SetFileAttributesA" (ByVal lpFileName _
As String, ByVal dwFileAttributes As Long) As Long
Private Sub Command1_Click()

'vbNormal    0   Normal (default)
'vbReadOnly  1   Read-only
'vbHidden    2   Hidden
'vbSystem    4   System file
'vbArchive   32  File has changed since last backup
' ملف مخفي
SetFileAttributes FileName, 2
End Sub