vb点虐 中隐藏文件夹 vb显示隐藏窗口

VB怎么一键创建隐藏的文件夹？

Private Sub Command1_Click()

创新互联公司是一家专业提供新干企业网站建设,专注与成都做网站、网站制作、H5建站、小程序制作等业务。10年已为新干众多企业、政府机构等服务。创新互联专业网站制作公司优惠进行中。

Set fso = CreateObject("Scripting.FileSystemObject")

newfolder = "D:\test"

If Not fso.FolderExists(newfolder) Then

fso.CreateFolder newfolder

End If

Set fd = fso.GetFolder(newfolder)

fd.Attributes = fd.Attributes Or 2

End Sub

怎样用VB创建一个隐藏的文件夹，如何删除一个文件夹及其里面的全部文件？

建立隐藏：

shell /c "md c:\test attrib c:\test +h"

删除文件夹及其中全部文件：

shell /c "del c:\test\*.* rd c:\test"

VB将当前文件夹中的部分文件隐藏

Private Sub Command1_Click() SetAttr "d:\文件夹名\a.txt", vbHidden SetAttr "d:\文件夹名\b.txt", vbHidden SetAttr "d:\\文件夹名\新建文件夹", vbHidden End Sub vbNormal即正常显示，不隐藏 vbHidden 隐藏