excel VBA 获取和设置（文件和文件夹属性）

excel VBA 获取和设置（文件和文件夹属性）

Sub createfolder()‘******检查文件夹是否存在******‘******如果不存在，就新建文件夹******‘******并设置属性为隐藏******

‘设置属性：setAttr 文件(或文件夹) , 属性

‘获取属性：getAttr 文件(或文件夹) , 属性

‘******引用Microsoft Scripting Runtime******

Dim datafolder As StringDim chfolder As ObjectSet chfolder = CreateObject("scripting.filesystemobject")datafolder = ThisWorkbook.Path & "\数据库备份\"If Not chfolder.FolderExists(datafolder) Thenchfolder.CreateFolder (datafolder)SetAttr datafolder, vbHidden + vbReadOnlyMsgBox "The folder " & datafolder & " was created!"End If

‘******文件和文件夹属性******‘常量 数值 属性名称‘vbNormal 0 普通文件（无其他属性）‘vbReadOnly 1 只读，不可修改‘vbHidden 2 隐藏‘vbSystem 4 系统文件‘vbDirectory 16 目录‘vbArchive 32 存档‘****************************End Sub

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。