vbscript - 如何防止隐藏文件夹被搜索？

Question

我是 vbscript 的新手，但我需要编写一个 vbscript 来创建一个新目录并将其属性设置为隐藏...现在我希望它不应该在用户搜索隐藏文件夹时显示。有人可以帮助我如何实现这一目标吗？这是我的小代码

Dim objFSO, objFolder, strDiretory, 

strDirectory = "E:\logs"

Set objFSO = CreateObject("Scripting.FileSystemObject")




      Set objFolder = objFSO.CreateFolder(strDirectory)

   Set objFolder = objFSO.getFolder(strDirectory)
   objFolder.Attributes = 1

Answer 1

如果我没记错的话，隐藏文件夹使用属性 2，而不是 1。尝试使用以下代码代替您的代码来设置属性：

If objFolder.Attributes = objFolder.Attributes AND 2 Then
    objFolder.Attributes = objFolder.Attributes XOR 2
End If