كود تغيير خصائص ملف

ضع الكود في الفورم

Private Sub COMMAND1_CLICK()

SetAttr "C:\data.txt", vbHidden

SetAttr "C:\data.txt", vbReadOnly

SetAttr "C:\data.txt", vbArchive

End Sub