[已解决]VBA批量复制文本文件

2198596388

急求大侠帮忙：把F盘中所有文本文件一次性复制到D盘，并覆盖D盘中同名的文本文件。怎样用VBA快速完成？急求！先谢了！！！

最佳答案

月排行榜 / 总排行榜

爱疯

2016-3-17 15:58

2198596388 发表于 2016-3-17 13:23
比如（前3个），把F:\盘下文本文件（名称是）1班，2班，3班，分别复制到D:\统计\1班\ ，D:\统计\2班\，D: ...

Sub test()
    Dim p1, p2, p3, f
    p1 = "f:\"          '源路径
    p2 = "d:\统计\"      '目的路径
    f = Dir(p1 & "*.txt")

    On Error Resume Next
    Do While f <> ""
        p3 = p2 & Replace(f, ".txt", "") & "\"    '新建文件夹的路径
        MkDir p3
        FileCopy p1 & f, p3 & f
        f = Dir()
    Loop
End Sub

跳转到最佳答案楼层

爱疯

F盘中所有文本文件？
实际上，可能缩小范围吗？比如只把f:\abc

2198596388

爱疯 发表于 2016-3-16 12:04
F盘中所有文本文件？
实际上，可能缩小范围吗？比如只把f:\abc

F盘中有时1个文本文件，有时有10多个文本文件的

2198596388

爱疯老师您好！也许是我表达得不够清楚，我的意思就是：把F盘中的多个文本文件快速复制到D盘中“统计”文件夹里。用VBA怎么完成这个效果呢？辛苦老师帮写个代码学习学习，先谢谢老师了！

爱疯

Dim fso As Object    '模块级变量
Dim DestinationPath As String

'主程序
Sub main()
    Set fso = CreateObject("scripting.filesystemobject")
    DestinationPath = "D:\123"          '指定目标路径
    Call Recursion("D:\BaiduMusic")     '指定源路径
    Shell "explorer " & DestinationPath & "\", vbNormalFocus
End Sub

'递归程序
Sub Recursion(myPath As String)
    Dim myFolder As Object, mySubFolder As Object, myFile As Object
    Set myFolder = fso.getfolder(myPath)

    '遍历文件夹
    For Each mySubFolder In myFolder.SubFolders
        Recursion mySubFolder.Path
    Next

    '遍历文件
    For Each myFile In myFolder.Files
        '指定操作
        If fso.GetExtensionName(myPath & "\" & myFile) = "jpg" Then Call demo(myPath, myFile.Name)
    Next
End Sub

'指定操作
Sub demo(myPath As String, myFile As String)
    Dim SourceFile, DestinationFile, DestinationPath
    SourceFile = myPath & "\" & myFile                  '指定源文件名
    DestinationFile = DestinationPath & "\" & myFile    '指定目的文件名
    FileCopy SourceFile, DestinationFile                '将源文件的内容复制到目的文件中
End Sub

1.rar (9.73 KB, 下载次数: 15)

2016-3-16 16:47 上传

点击文件名下载附件



请自行修改，3处蓝色的内容。

2198596388

爱疯 发表于 2016-3-16 16:49
Dim fso As Object    '模块级变量
Dim DestinationPath As String

老师能简单点代码吗?初学vba看起来有点吃力，难理解呀

爱疯

如果只是对某个路径下，不含其子文件夹，那么可简化。

2198596388

爱疯 发表于 2016-3-16 17:34
如果只是对某个路径下，不含其子文件夹，那么可简化。

老师，就是：把F盘中的多个文本文件快速复制到D盘中“统计”文件夹里。没有子文件夹的，简单点咋弄代码呢？

爱疯

Sub test()
    Dim p1, p2, f
    p1 = "f:\"
    p2 = "d:\统计"

    f = Dir(p1 & "*.txt")
    Do While f <> ""
        Debug.Print f

        FileCopy p1 & f, p2 & f
        f = Dir
    Loop
End Sub

2198596388

爱疯 发表于 2016-3-16 20:16
Sub test()
    Dim p1, p2, f
    p1 = "f:\"

哇塞！这代码好看多了，简单易学！！！老师辛苦了！再请教一下老师，如果是：“ 把F盘下的这些文本文件分别复制到D盘下同名字的文件夹里 ” 呢？该怎么修改一下代码？