از روشهای زیر هم می تونی استفاده کنی
Private Const FILE_ATTRIBUTE_HIDDEN = &H2
Private Const FILE_ATTRIBUTE_NORMAL = &H80
Private Const FILE_ATTRIBUTE_READONLY = &H1
Private Const FILE_ATTRIBUTE_DIRECTORY = &H10
Private Const FILE_ATTRIBUTE_COMPRESSED = &H800
Private Const FILE_ATTRIBUTE_ARCHIVE = &H20
Private Const FILE_ATTRIBUTE_SYSTEM = &H4
Private Const FILE_ATTRIBUTE_TEMPORARY = &H100
Private Declare Function SetFileAttributes Lib "kernel32.dll" Alias "SetFileAttributesA" (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long
Private Sub Command1_Click()
SetFileAttributes "c:\1.txt", FILE_ATTRIBUTE_READONLY
End Sub
Private Sub Command2_Click()
SetFileAttributes "c:\1.txt", FILE_ATTRIBUTE_NORMAL
End Sub
Private Sub Command1_Click()
SetAttr "c:\1.txt", vbReadOnly
End Sub
Private Sub Command2_Click()
SetAttr "c:\1.txt", vbNormal
End Sub
Private Sub Command1_Click()
Dim str As String
str = ("""""""" & "c:\1.txt" & """""""")
Call Shell("attrib +r " & str, vbHide)
End Sub
Private Sub Command2_Click()
Dim str As String
str = ("""""""" & "c:\1.txt" & """""""")
Call Shell("attrib -r " & str, vbHide)
End Sub