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

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

---

用KILL “1.TXT”删除不了

---

学习

---

我用以下这段代码，有时候后能隐藏，有时候又不能隐藏，三个文件

---

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