ExcelVBA之文件属性

文件和文件夹具有类似“只读”,“隐藏”,“系统”和“档案”的特点。这些特点就是属性。可以使用GetAttr函数来获得文件或文件夹的属性。该函数的唯一参数就是文件或文件夹路径名:
GetAttr(文件路径名)

GetAttr函数的相反函数是SetAttr函数,它允许你设置一个文件或文件夹的属性。语法如下:
SetAttr 文件路径名, 属性

文件路径名确定你要设置的文件或文件夹,第二个参数,属性,是一个或多个你要设置的属性常量。

SetAttr "D:\stamps.txt", vbReadOnly + vbHidden
?getattr("D:\stamps.txt") AND vbHidden
 2 

该实例代表D盘的文件的stamps.txt 的属性改变以及设置。

技巧:调用SetAttr语句
你不能给打开的文件设置属性,在使用SetAttr函数之前,你必须关闭该文件。

Excel VBA 可以使用内置的属性和方法来获取文件属性。以下是其中一种方法: 首先,我们需要创建一个对象来表示文件。可以使用 `FileSystemObject` 对象来实现。在使用之前,需要先引入 `Microsoft Scripting Runtime` 库。 ```vba Sub GetFileAttributes() Dim fs As Object Dim file As Object ' 创建 FileSystemObject 对象 Set fs = CreateObject("Scripting.FileSystemObject") ' 获取文件对象 Set file = fs.GetFile("文件路径") ' 使用 file 对象来获取属性 MsgBox "文件路径:" & file.Path MsgBox "文件名:" & file.Name MsgBox "文件类型:" & file.Type MsgBox "文件大小:" & file.Size MsgBox "创建时间:" & file.DateCreated MsgBox "最后修改时间:" & file.DateLastModified MsgBox "最后访问时间:" & file.DateLastAccessed ' 释放对象 Set file = Nothing Set fs = Nothing End Sub ``` 在上面的代码中,我们首先创建了一个 `FileSystemObject` 的实例,并将其赋值给 `fs` 变量。然后,我们使用 `GetFile` 方法来获取想要查看属性文件,并将其赋值给 `file` 变量。 之后,我们使用 `file` 对象来获取文件属性,例如路径、名称、类型、大小、创建时间、最后修改时间和最后访问时间等。 最后,我们释放已经使用的对象,以释放内存资源。 请注意,上述代码中的 "文件路径" 需要替换为你自己的文件路径。确保要获取文件属性文件路径是正确的,否则会引发错误。 希望以上回答对你有所帮助。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值