VB如何隐藏多个文件，

Question

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还又怎么删除隐藏的这几个文件，

Answer 1

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"

Answer 2

可以使用API函数SetFileAttributes来设置文件为隐藏的。