Question

VB中如何设置 文件属性？

已知文件路径 As String
需要设置为隐藏+系统属性，最好通过API完成 如果能通过Attrib也可以。

Answer 1

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