xcopy复制文件夹及其子文件_VBA学习笔记48:VBA文件夹操作

7ed09fed59340fc234ee58d2341d00a8.png

学习资源:《Excel VBA从入门到进阶》第48集 by兰色幻想


忘了之前老师有没有讲过Dir函数了,还是写一下吧,再开始正文吧:

Dir函数:返回一个 String,它表示与指定路径下的文件、目录或文件夹的名称。

语法:Dir ( pathname, 属性 )

pathname:指定地址,第一次调用必填。

若要获取与 pathname 匹配的任何其他文件名,请重新调用 Dir 且不填写参数。

简单举例:

filename = Dir("C:" & "*.doc")  ‘在C盘查找word文件,并返回word文档的名称给filename
filename2 = Dir                  '再次调用Dir,在C盘查找第二份word文件,并返回它的文档名给filename2

Dir查找遍历的顺序是按照系统排序。如果对排序有要求,可用数组存储文件名,然后对数组进行排序。

一般会搭配循环遍历文件,结束循环的条件为Dir返回空值。

当不再有匹配的文件名时,Dir 将返回零长度字符串 ("")。在返回零长度字符串后,后续再调用需重新填写参数pathname,否则将发生错误。

②属性:选填,有如下属性c:

bfec915e8d97466ca2af765dc4e0de78.png

本节课中Dir函数第二个参数主要使用vbNormal(默认,即不写),和 vbDirectory(可以返回路径下的指定文件和文件夹)。

一、文件夹基本操作

1. 判断文件夹是否存在

使用dir函数去判断文件夹路径,如果结果为"",则表示不存在。

例1:判断当前文件路径下是否存在"2011年报表2"文件夹。

Sub w1()

If Dir(ThisWorkbook.path & "2011年报表2", vbDirectory) = "" Then
    MsgBox "不存在"
Else
    MsgBox "存在"
End If

End Sub

2. 新建文件夹

Mkdir语句,创建一个文件夹。

语法:MkDir 路径

例2:在当前文件路径下创建"Test"文件夹。

Sub w2()
   MkDir ThisWorkbook.path & "Test"
End Sub

3. 删除文件夹

RmDir语句可以删除一个空的文件夹。

语法:RmDir 路径

例3:删除当前文件路径下的"Test"文件夹。

Sub w3()
    RmDir ThisWorkbook.path & "Test"
End Sub

但注意:RmDir只能删除空文件夹,如果使用 RmDir 来删除一个含有文件的目录或文件夹,会发生错误(如下图提示)。所以在试图删除目录或文件夹之前,先使用 Kill 语句来删除所有文件。

68e44c68b37969eaaef7e88c5b40eae8.png

增加一句kill语句,清空Test文件夹下的所有文件:

Sub w3()
    Kill ThisWorkbook.Path & "Test*"
    RmDir ThisWorkbook.Path & "Test"
End Sub

4. 文件夹重命名

使用Name语句重命名。

语法:Name 路径/旧文件名 as 路径/新文件名

例4:把"Test"文件夹重命名为“Test2”。

Sub w4()
    Name ThisWorkbook.path & "Test" As ThisWorkbook.path & "Test2"
End Sub

5. 文件夹移动

同样使用name方法,可以达到移动的效果,而且连文件夹的文件一起移动。

例5:把"Test2"文件夹移动到“2011年报表”文件夹下。

Sub w5()
    Name ThisWorkbook.Path & "Test2" As ThisWorkbook.Path & "2011年报表Test2"
End Sub

6. 文件夹复制

用FileSystemObject对象的CreateObject方法(CopyFolder方法)复制文件夹。

语法:object.CopyFolder source, destination[, overwrite]
object:必须, FileSystemObject对象的名字。
source:必须,指明一个或多个被复制文件夹的字符串文件夹说明,可包括通配符,如*。destination:必须,被复制文件夹和子文件夹的接受端的字符串,不允许有通配符。
overwrite:可选,表示已存在的文件夹是否被覆盖。如果为True,文件被覆盖,如果为False,文件不被覆盖。缺省值为True。

例6:把"Test2"文件夹复制到“2011年报表”文件夹下,设置可复制相同名称文件夹。

Sub CopyFile_fso()

Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFolder ThisWorkbook.Path & "Test2", ThisWorkbook.Path & "2011年报表",1

End Sub

7. 打开文件夹

使用shell函数桌面管理程序打开文件夹。

语法:shell “explorer 路径”

例7:打开“2011年报表”文件夹。

Sub w7()
    Shell "explorer.exe " & ThisWorkbook.Path & "2011年报表", 1
End Sub

注:"explorer.exe "后面有个空格,不能漏写!

二、遍历文件夹中的文件

  1. 遍历指定文件夹中的文件 dir+循环

例:获取“2011年报表”文件夹下所有EXCEL文件的名称。

用dir获取文件夹中的文件,再用Do Loop语句循环记录。

Sub 遍历文件()

Dim Filename As String, mypath As String, k As Integer
mypath = ThisWorkbook.Path & "2011年报表"
Range("A1:A10") = ""                           '先清空要填写的单元格区域(加快程序运行)
Filename = Dir(mypath & "*.xls")               '

Do
    k = k + 1
    Cells(k, 1) = Filename
    Filename = Dir
Loop Until Filename = ""

End Sub

f456e40b48afc3d4672949550e55252a.png
运行结果展示

2. 遍历子文件 dir(,vbDirectory)+循环+文件名判断

dir第二个参数是vbdirectory可以返回路径下的指定文件和文件夹。

例:获取“2011年报表”文件夹下所有文件夹的名称。

文件夹路径不像文件名的格式是“*.*”,所以增加文件名判断。

Sub 遍历子文件()

Dim Filename As String, mypath As String, k As Integer
mypath = ThisWorkbook.Path & "2011年报表"
Range("A1:A10") = ""
Filename = Dir(mypath, vbDirectory)

Do

    If Not Filename Like "*.*" Then      '如文件名不像"*.*",则判断为文件名可进行记录。
        k = k + 1
        Cells(k, 1) = Filename
    End If
    
    Filename = Dir
    
Loop Until Filename = ""

End Sub

f69ff43f0984ed0d9f649875b10e1d5f.png
运行结果显示

把判断语句注释掉,看看运行结果是如何的:

f6c63076dedf85955b94f3823afdb779.png
没做文件名判断

它会把文件夹下所有文件的名称都粘贴上去,所以记得要做判断。


文件夹遍历是很常用,还会再讲一节,整理好笔记,明天再发啦。

以上,晚安。

  • 0
    点赞
  • 0
    评论
  • 5
    收藏
  • 扫一扫,分享海报

表情包
插入表情
评论将由博主筛选后显示,对所有人可见 | 还能输入1000个字符
©️2022 CSDN 皮肤主题:1024 设计师:我叫白小胖 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值