首页 > Excel专区 > Excel函数 >

excel VBA 获取和设置(文件和文件夹属性)

Excel函数 2022-02-17 21:54:36

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


标签: 属性文件文件夹设置excel函数

office教程网 Copyright © 2016-2020 http://www.office9.cn. Some Rights Reserved. 苏ICP备20040415号-9