vba学习：文件操作

引言

为题高办公效率，经常用到文件复制，移动，删除，重命名等操作，这次分享一下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")