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 隐藏
分享名称:vb点虐 中隐藏文件夹 vb显示隐藏窗口
标题路径:http://scyanting.com/article/ddjhhdc.html