你可以通过 Scripting.FileSystemObject 对象来设置指定文件的属性,它的 File 对象有一个 Attributes 可以由我们修改,测试代码及说明如下:
Private Sub Command1_Click()
Dim oFileSystem As Object
Dim oFile As Object
'// 创建FSO对象
Set oFileSystem = CreateObject("Scripting.FileSystemObject")
'// 获取你想要改属性的文件
Set oFile = oFileSystem.GetFile("文件名")
'// Normal 0 一般文件。未设置属性。
'// ReadOnly 1 只读文件。属性为读/写。
'// Hidden 2 隐藏文件。属性为读/写。
'// System 4 系统文件。属性为读/写。
'// 设置属性(以上列出了所有可更改的属性值)
'// 将文件改为:只读+隐藏+系统
oFile.Attributes = 1 + 2 + 4
'// 释放对象
Set oFile = Nothing
Set oFileSystem = Nothing
End Sub
温馨提示:内容为网友见解,仅供参考