批量复制指定文件到指定文件夹

nxxhswl

想通过窗体，将一个文件夹内的文件一并转移到指定的文件夹内，大神帮忙指导下。

ykcbf1100

搞复杂了。

nxxhswl

ykcbf1100 发表于 2024-4-9 20:27
搞复杂了。

学习中，请多多指教。

ykcbf1100

不用窗体我可以写一个。

liulang0808

https://club.excelhome.net/thread-1258425-1-1.html
fso及dir部分可以参考

baofa2

for /r d:\一个文件夹 %%i in (*.*) do if exist %%i copy "%%i" d:\另一个文件夹 /y

pause

复制以上，另存为 *.bat  文件，右键 以管理员身份运行。

gwjkkkkk

Private Sub CommandButton3_Click()
Application.ScreenUpdating = False '
    Dim f1$, f2$, f
    f1 = txtpath1.Text
    If Dir(f1, vbDirectory) = "" Then MsgBox "目录不存在": Exit Sub
    f2 = txtpath2.Text
    If Dir(f2, vbDirectory) = "" Then MsgBox "目录不存在": Exit Sub
    With CreateObject("Scripting.FileSystemObject")
        For Each f In .GetFolder(f1).Files
            .movefile f, f2
        Next
    End With
End Sub

gwjkkkkk

请参考附件。。。

nxxhswl

多谢大家出手相助。

nxxhswl

gwjkkkkk 发表于 2024-4-9 21:02
请参考附件。。。

非常感谢，使用的时候发现用的是move，我改成了copyfile，很顺手。