引言
为题高办公效率,经常用到文件复制,移动,删除,重命名等操作,这次分享一下vba中的文件操作常用代码。
代码
-
重命名文件
语法:Name oldpathname As newpathname
'将文件test.txt改为newtest.txt Name "f:/test.txt" As "f:/newtest.txt"
-
复制文件
语法: FileCopy source, destination
'从F盘复制test.txt到E盘 FileCopy "f:/test.txt", "e:/test.txt"
注意:如果对一个已打开的文件使用 FileCopy 语句,则会产生错误。
-
删除文件
语法:Kill pathname
'删除F盘的test.txt文件 Kill "f:/test.txt" '支持多字符 (*) 和单字符 (?) 的统配符来指定多重文件 '删除F盘所有txt文件 Kill "f:/*.txt"
注意:如果要删除一个已打开的文件,则会产生错误。
-
获取文件、目录或文件夹的属性
语法:GetAttr(pathname)
'弹出文件test.txt的属性 MsgBox GetAttr("f:/test.txt")
注意:GetAttr 返回一个 Integer值,属性意义如下:
常数 值 描述 vbNormal 0 常规 vbReadOnly 1 只读 vbHidden 2 隐藏 vbSystem 4 系统文件 vbDirectory 16 目录或文件夹 vbArchive 32 存档文件 vbalias 64 指定的文件名是别名。只在Macintosh中可用。 -
设置文件属性
语法:SetAttr pathname, attributes
' 设置隐藏属性 SetAttr"F:/test.txt", vbHidden ' 设置隐藏并只读 SetAttr"F:/test.txt", vbHidden + vbReadOnly
注意:如果对一个已打开的文件使用 SetAttr语句,则会产生错误。
-
获取文件的长度(单位:字节)
语法:FileLen(pathname)
'弹出文件test.txt的大小 MsgBox FileLen("f:/test.txt")
注意:如果对一个已打开的文件使用 FileLen语句,则返回的值是这个文件在打开前的大小。
-
获取文件被创建或最后修改后的日期和时间
语法:FileDateTime(pathname)
'弹出文件test.txt的大小 MsgBox FileDateTime("f:/test.txt")
网友评论