excel VBA 获取和设置（文件和文件夹属性）
发布时间：2023-12-02 04:05:11
标签：属性,文件,文件夹,设置,Excel函数
Sub createfolder()
‘******检查文件夹是否存在******
‘******如果不存在，就新建文件夹******
‘******并设置属性为隐藏******
‘设置属性：setAttr 文件(或文件夹) , 属性
‘获取属性：getAttr 文件(或文件夹) , 属性
‘******引用Microsoft Scripting Runtime******
Dim datafolder As String
Dim chfolder As Object
Set chfolder = CreateObject("scripting.filesystemobject")
datafolder = ThisWorkbook.Path & "\数据库备份\"
If Not chfolder.FolderExists(datafolder) Then
chfolder.CreateFolder (datafolder)
SetAttr datafolder, vbHidden + vbReadOnly
MsgBox "The folder " & datafolder & " was created!"
End If
‘******文件和文件夹属性******
‘常量 数值 属性名称
‘vbNormal 0 普通文件（无其他属性）
‘vbReadOnly 1 只读，不可修改
‘vbHidden 2 隐藏
‘vbSystem 4 系统文件
‘vbDirectory 16 目录
‘vbArchive 32 存档
‘****************************
End Sub
0
投稿猜你喜欢
- mac自带的词典翻译不能满足您的需求？别急，这几款翻译软件为您完美扩充，完全依据苹果风格和使用习惯进行精心设计，并且提供了强大的功能例如屏幕
- 【mì yuè】读音下的“密钥”的意思：紧密的锁闭。这里的用法用了“密钥”的动词性质。【 mì yào】读音下的“密钥”的意思：密码学中的专
- 我们电脑的右下角都会有一个时间显示，这个时间是和世界时间同步的。电脑时间同步出错时，有可能会导致你耽误一些重要的事情，因此发现时间同步出错的
- 对于使用Win10系统的我们来说，电脑出现故障是最麻烦的事情，我们可能会遇到无法找到输入设备的问题。找不到输入设备也就意味着电脑无法放出声音
- wps文本间距如何调整行距？设置单词间距的步骤(以WPS文本2013为例):1.选择要设置单词间距的内容。2.按键盘上的CTRL键打开“字体
- 打印机一般来说都会设置成共享打印机，但是最近有一个用户反映Win7系统打印机无法共享，提示错误代码0x000006d9，这是怎么回事？打印机
- 电脑不能修改屏保怎么办？系统无法设置屏幕保护程序该如何解决？下面就给大家介绍具体解决方法。解决方法：1、单击一下桌面上的开始菜单，然后在gh
- 一些特殊的数据需要特别标注，以引起注意。平时一般都是用底纹来突出显示这些数据，接下来就教大家一种特别的方法，可以把指定的数据圈出来，一起来看
- 在PowerPoint2007中可以很方便的将幻灯片转换成图片，这项能可以给我们日常办公减少一些麻烦。比如我们想把PowerPoint幻灯片
- win7下.插入U盘时.老是提示修复U盘.是啥原因呢.一般情况下当U盘有不稳定因素时win7会提示用户扫描U盘，这本来是一个很不错的功能，可
- Aurora HDR作为世界上最先进的HDR照片编辑器，它拥有史上最完整的 HDR 处理工具和编辑能力、快速且强大的 RAW 文件处理引擎、
- 经常需要从网上复制各种各样的文章到文档当中进行编辑，但是复制过来的文档，难免格式很不准确，文档当中很多空格的情况下，难道需要一个一个的去删除
- WPS以其免费、升级快等特点，已经在中国有了不小的市场，在一些情况下需要输入立方米符号的时候，但是新手不会，怎么办?有简单易懂的方法吗?下面
- 有人说，Windows 95是最成功的系统，因为它，是当时实用、稳定的桌面图形操作系统，较DOS看来，它的图形化，让更多的普通人可以了解电脑
- 威力导演作为一款专业的媒体剪辑软件，拥有截取、编辑、菜单制作、刻录电影、添加转场特效等功能，同时还可以设计将多个视频在一个画面中同时进行播放
- 在PPT内粘贴excel表格的方式，通常有以下几种方式：方式一：直接复制粘贴首先直接选中要用的表格复制。然后切换至PPT界面右键选中“粘贴”
- 当需要在ppt幻灯片的占位符以外的位置添加文本时，可以利用“绘图”工具栏中的“文本框”按钮或“竖排文本框”按钮来完成，在PPT中插入文本框的
- 超级课程表怎么删除课程表？超级课程表一款非常好用的校园应用软件，学生在进入新学期的时候，以前的课程表就用不到了，如果我们想要删除这些课程表，
- discuz被挂马怎么处理？discuz百度快照被劫持怎么办？可能很多伙伴都有遇到过网站被劫持的问题，就是在百度中输入自己的网址，点击被收录
