全民一起VBA实战篇 专题4 第三回 建目录做拷贝有求必应，VBA玩文件无所不能

 

相关知识点：

文件操作函数有时无法成功情况，有可能是windows文件夹权限，不允许删除修改等。

MkDir(“文件夹路径和名称”)  根据指定路径和名称新建一个文件夹，如果该文件夹已经存在，则会发生错误

FileCopy(“源文件名”,”目标路径与文件名”) 如果不存在该源文件，则会出错。

Name函数 重命名一个文件或文件夹

RmDir函数 删除一个空文件夹（该文件夹不能有任何文件）

FileDateTime函数 获取一个文件的最后修改时间

FileLen函数 获取文件大小（以字节为单位）

SetAttr函数 设置文件的属性（只读、隐藏……）

GetAttr函数 获取文件的属性

ChDir函数  修改系统当前的默认工作目录

ChDrive函数 修改系统当前默认的工作目录所在的驱动器

 

例1 文件归档，按照表格姓名和部门，建立部门文件夹并建立个人文档

Sub test()

       If dir(d:\vbademo\销售,vbDirectory)=”” Then   ‘判断是否存在此文件

              MkDir”d:\vbademo\销售”     ‘创建一个文件夹

       End If

       ‘将一个文件复制到另一个文件夹中并重命名

       FileCopy “d:\vbademo\张三.txt” ,”d:\vbademo\销售\张三销售.txt”

       Kill “d:\vbademo\张三.txt”     ‘删除原来的文件

End Sub

例2 文件归档，按照表格姓名和部门，建立部门文件夹并建立个人文档

Sub demo1()

       Dim i as long, fname as string, dptpath as string , rootpath

       rootpath=”d:\vbademo\”

       ‘让i从第2行开始，扫描到A2下方最后一个数据单元格的行号数值（实战篇专题1第六回）

       For i=2 To Range(“a3”).end(xldown).row 

              fname=cells(i,1)&”.txt”

              dptpath=”d:\vbademo\” & cells(i,2)&”\”          

              If dir(“d:\vbademo\” & fname) <>”” Then   ‘判断文件是否存在

                     If dir(dptpath,vbdirectory)=”” Then mkdir(dptpath)  ‘判断目录是否存在，创建文件夹

                     Filecopy ”d:\vbademo\” & fname , dptpath & fname

                     kill “d:\vbademo\” & fname  ‘替换为 Kill rootpath & fname，利于修改代码

              End If

       next i

End Sub