VB中如何设置 文件属性？

分类: 电脑/网络 >>程序设计 >>其他编程语言

问题描述:

已知文件路径 As String

需要设置为隐藏+系统属性，最好通过API完成 如果能通过Attrib也可以。

解析:

你可以通过 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

SetAttr "文件路径写在这", vbHidden'设为隐藏

SetAttr "文件路径写在这", vbReadOnly'设为只读

SetAttr "文件路径写在这", vbHidden + vbReadOnly'设为隐藏+只读

SetAttr "文件路径写在这", vbSystem'设为系统文件

也可以用数字：

SetAttr "文件路径写在这", 2'设为隐藏

SetAttr "文件路径写在这", 1'设为只读

SetAttr "文件路径写在这", 3'设为隐藏+只读

SetAttr "文件路径写在这", 4'设为系统文件

---