相关知识点:
文件操作函数有时无法成功情况,有可能是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