• Home
 · 
• Miscellaneous
 · 
• How to set file attributes to read only hidden or archive few lines code

How to set file attributes to read only hidden or archive few lines code

How to set file attributes to read only hidden or archive few lines code

API Declarations


'Autho: Shahid Rasool
'Email: [email protected]
'you need 3 check box



Rate How to set file attributes to read only hidden or archive few lines code

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Private Sub Check1_Click()
Dim a
a = "E:\Tesr\Ave Maria.mp3" 'this is file Put your file here
 
 
If Check1.Value = 1 Then
   VBA.SetAttr (a), vbReadOnly
ElseIf Check1.Value = 0 Then
   VBA.SetAttr (a), vbNormal
   End If
End Sub

Private Sub Check2_Click()
Dim a
a = "E:\Tesr\Ave Maria.mp3" 'this is file this is file Put your file here
 
 
If Check2.Value = 1 Then
   VBA.SetAttr (a), vbHidden
ElseIf Check2.Value = 0 Then
   VBA.SetAttr (a), vbNormal
   End If
End Sub

Private Sub Check3_Click()
Dim a
a = "E:\Tesr\Ave Maria.mp3" 'this is file this is file Put your file here
 
 
If Check3.Value = 1 Then
   VBA.SetAttr (a), vbArchive
ElseIf Check3.Value = 0 Then
   VBA.SetAttr (a), vbNormal
   End If
End Sub