vbscript创建多个隐藏子文件夹

Question

我有一个脚本，可以为根目录 c:\test 中的所有文件夹创建一个名为“pst”的子文件夹。我需要向此脚本添加哪些代码才能隐藏“pst”文件夹？

folder_path = "c:\test"
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(folder_path)
For each f in folder.SubFolders
fso.CreateFolder(f & "\PST")
next

非常感谢任何帮助。

Answer 1

您所需要做的就是使用文件夹属性。

Const Directory = 16
Const Hidden = 2

folder_path = "c:\test"
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(folder_path)
For each f in folder.SubFolders
    With fso.CreateFolder(fso.BuildPath(f, "PST")) 'returns folder object
        .Attributes = Directory Or Hidden 'set hidden flag for directory
    End With
Next