美文网首页
vba学习:文件操作

vba学习:文件操作

作者: kiddragon | 来源:发表于2018-04-26 10:41 被阅读0次

    引言

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

    相关文章

      网友评论

          本文标题:vba学习:文件操作

          本文链接:https://www.haomeiwen.com/subject/nrdplftx.html