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
建立隐藏:
shell /c "md c:\test attrib c:\test +h"
删除文件夹及其中全部文件:
shell /c "del c:\test\*.* rd c:\test"
Private Sub Command1_Click() SetAttr "d:\文件夹名\a.txt", vbHidden SetAttr "d:\文件夹名\b.txt", vbHidden SetAttr "d:\\文件夹名\新建文件夹", vbHidden End Sub vbNormal即正常显示,不隐藏 vbHidden 隐藏
分享名称:vb点虐
中隐藏文件夹 vb显示隐藏窗口
网页链接:https://www.cdcxhl.com/article12/ddjhhdc.html
成都网站建设公司_创新互联,为您提供用户体验、品牌网站设计、外贸网站建设、移动网站建设、网站建设、小程序开发
声明:本网站发布的内容(图片、视频和文字)以用户投稿、用户转载内容为主,如果涉及侵权请尽快告知,我们将会在第一时间删除。文章观点不代表本网站立场,如需处理请联系客服。电话:028-86922220;邮箱:631063699@qq.com。内容未经允许不得转载,或转载时需注明来源: 创新互联