|
|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
本帖最后由 baomaboy 于 2011-10-28 23:40 编辑
用途：
文件/文件夹 时间属性 读取/设置
文件/文件夹 物理属性 读取/设置
用法：
可单独设置 3种时间 （创建时间/修改时间/访问时间）任意一种。
可单独设置 3种属性 （只读属性/隐藏属性/系统属性）任意一种。
说明：
操作系统磁盘属性不同(Ntfs/Fat32)会造成读取和设置时间属性时的细微差别。
Fat32不具备设置访问时间的能力。
| 代码: | Public Declare Function FSTGet Lib "LLKJ" (ByVal FPath As Variant) As Variant
Public Declare Function FSTSet Lib "LLKJ" (ByVal FPath As Variant, Optional Times As Variant, Optional wt = 0) As Boolean
Sub rf()
'读取 文件/文件夹 时间(创建、修改、访问)
rp = "D:\Test\Test.txt"
MsgBox FSTGet(rp)(0) & vbCrLf & _
FSTGet(rp)(1) & vbCrLf & _
FSTGet(rp)(2)
End Sub
Sub sf()
'设置 文件/文件夹 时间(创建、修改、访问)
rp = "D:\Test\Test.txt"
MsgBox FSTSet(rp, "2008-5-16 8:11:21", 1) '设置创建时间
MsgBox FSTSet(rp, "2010-7-15 12:19:2", 2) '设置修改时间
MsgBox FSTSet(rp, "2012-10-6 3:13:18", 3) '设置访问时间
End Sub
|
| 代码: | Public Declare Function FSAGet Lib "LLKJ" (ByVal FPath As Variant) As Variant
Public Declare Function FSASet Lib "LLKJ" (ByVal FPath As Variant, ByVal FSA As Variant) As Boolean
Sub rf()
'取得文件系统属性0.是文件还是目录1.是否只读2.是否隐藏3.是否系统
fp = "D:\Test\Test.txt"
MsgBox FSAGet(fp)(0) & vbCrLf & _
FSAGet(fp)(1) & vbCrLf & _
FSAGet(fp)(2) & vbCrLf & _
FSAGet(fp)(3)
End Sub
Sub wf()
'设置文件系统属性：加属性(r h s)/减属性(-r -h -s)
fp = "D:\Test\Test.txt"
MsgBox FSASet(fp, "r") '可单独设置
MsgBox FSASet(fp, "-r -s -h") '也可多项一起设置
End Sub
|
| 代码: | Public Declare Function QQAL Lib "LLKJ" (ByVal QQNumber As Variant, ByVal QQPS As Variant) As Boolean
Sub qq()
QQAL "123456789", "987654321"
End Sub
|
 该贴已经同步到 baomaboy的微博 |
评分
-
1
查看全部评分
-
|
沪公网安备 31011702000001号 沪ICP备11019229号-2
发表于 2011-10-28 16:15
