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
投稿猜你喜欢
①启动Word，输入文字，选中文字，然后单击菜单栏--引用，脚注标签里面的脚注和尾注按钮。 ②弹出脚注和尾注对话框- 学习word2019文字处理的时候，我们首先要知道如何来创建word2019文档，创建word文档和ppt、excel创建文档的方式基本一致
- 如何命令行查看office激活期限1、首先找到office安装目录，我的是C:Program FilesMicrosoft OfficeOf
- 如何将多个Excel文件合并成一个且保留原有数据？事实上，我们可以借用Excel宏命令来处理该操作，并且保留原有数据，建立多个Sheet页，
- 在一些报表中，我们常常需要用到批注来汇报信息，有助于更好的理解数据。下面让小编为你带来excel2010表插入备注的方法。excel2010
- word作为常用的办公软件，我们常常用它来处理一些资料，而有的时候，我们需要对打印出来的文档进行一个装订，为了避免装订好后页眉文字被覆盖，我
- 经常使用word进行中英文混合文字编辑时，可能会遇到中英文段落不整齐，那么，该怎么办呢？不着急，赶紧看完本就会找到解决办法了。Word文档中
- 在使用Win10系统的电脑时间久了以后，经常会提示内存不足的情况，这个时候我们可以用设置虚拟内存的方法来解决，那么要如何去设置虚拟内存呢？下
- 什么是兼容模式，就是为了在不同的操作系统上支持更多的软件运行。有些程序会因为代码关系，存在着兼容性的问题，那win10的兼容模式要怎么设置？
- 怎么清除浏览记录在excel表格中，每次浏览文件都是有记录的，但这样同时也会泄露我们的隐私，应该怎么删除掉呢?下面随seo实验室小编一起来看
- 交叉引用是对Microsoft Word文档中其他位置的内容的引用。以下是关于交叉引用的用法，希望小编整理的对你有用!交叉引用是对Micro
- Win10我的电脑图标怎么调出来？最近有用户反应在安装好Win10系统以后，发现自己的电脑桌面啥都没有，发现桌面只有一个回收站图标，因此就想
- Word中排版如果涉及到公式，有的人因对Word自身的公式编辑器排版效果不满意，借助于专用的公式编辑器MathType来制作公式，然而这个编
- 打开WORD文档，搜狗拼音输入法自动消失，无法使用。但打开网页或者Excel时，搜狗拼音输入法又恢复正常。那么在Word文档中搜狗拼音输入法
- Win7和office两大利器可以说是大家日常工作生活中必不可少的伙伴。Win7让我们更加轻松的使用电脑，而office则是微软带给我们办公
- 在日常生活中我们经常用到三角函数,可是在用Excel来解决三角函数的的时候,它默认的是弧度制。那么Excel怎么制作一个能自动计算三角形边长
- excel如何计算？excel如何计算的教程，计算步骤如下：excel如何计算步骤一、首先我们来进行一些最简单的运算。打开excel软件，然
- 用户在完成对Excel工作表的编辑后，会需要对工作表进行保存，通过单击保存按钮直接保存工作表，则原来工作表中的内容就会被已经编辑后的工作表内
- Excel中经常需要为数据进行取整数的操作，表格数据具体该如何进行取整数呢?下面是小编带来的关于excel表格取整数的方法，希望阅读过后对你
- word默认的文档格式为什么？word2010文档的默认扩展名是.docx，查看方法：1、在运行中输入winword打开一个word文档2、
