符合中小企业对网站设计、功能常规化式的企业展示型网站建设
本套餐主要针对企业品牌型网站、中高端设计、前端互动体验...
商城网站建设因基本功能的需求不同费用上面也有很大的差别...
手机微信网站开发、微信官网、微信商城网站...
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 隐藏