VB如何隐藏多个文件，
VB如何隐藏多个文件，我用以下这段代码，有时候后能隐藏，有时候又不能隐藏，三个文件
Private Sub Command1_Click()
Dim fs, f, r
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile("c:\1.txt")
f.Attributes = f.Attributes + 2
f.Attributes = f.Attributes + 4

Set f = fs.GetFile("c:\2.txt")
f.Attributes = f.Attributes + 2
f.Attributes = f.Attributes + 4

Set f = fs.GetFile("c:\3.txt")
f.Attributes = f.Attributes + 2
f.Attributes = f.Attributes + 4
end sub

还又怎么删除隐藏的这几个文件，

[解决办法]
1. 重复执行隐藏会恢复状态,就是隐藏/非隐藏交替,执行一次是隐藏,再执行一次就是非隐藏
2. 删除隐藏+锁定的文件,要先解除这些状态再删除
Dim fs, f, r
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile("c:\1.txt")
f.Attributes = 32
Kill "c:\1.txt"