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显示隐藏窗口
网页链接:https://www.cdcxhl.com/article12/ddjhhdc.html

成都网站建设公司_创新互联,为您提供用户体验品牌网站设计外贸网站建设移动网站建设网站建设小程序开发

广告

声明:本网站发布的内容(图片、视频和文字)以用户投稿、用户转载内容为主,如果涉及侵权请尽快告知,我们将会在第一时间删除。文章观点不代表本网站立场,如需处理请联系客服。电话:028-86922220;邮箱:631063699@qq.com。内容未经允许不得转载,或转载时需注明来源: 创新互联

手机网站建设