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

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