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

来源:互联网 时间:2016-01-03

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

相关阅读:
Top