VBA 移动文件夹内所有文件，有重复则强制覆盖

大家帮忙看下以下代码要怎么样修改才能达到‘目标文件夹有重复问价则强制覆盖’

Private Sub Movefile01_Click()
Dim pathd, path3
pathd = "D:\test"
path3 = "D:\test01"
Call movefile(pathd, "*.*", path3)
End Sub
Sub movefile(PTH, FILES, PTH2)
Dim MyFileObject
Set MyFileObject = CreateObject("Scripting.FileSystemObject")
MyFileObject.movefile PTH & "\" & FILES, PTH2 & "\"
End Sub

推荐答案 æ¨èäº2016-10-07

ä¸é¢çä»£ç æ§è¡æåï¼

Sub xxx()
    Dim wsh
    Set wsh = CreateObject("WScript.Shell")
    wsh.Run "notepad.exe"
    Set wsh = Nothing
End Sub

Sub movefile(PTH, FILES, PTH2)
    Dim wsh
    Set wsh = CreateObject("WScript.Shell")
    wsh.Run "MOVE /Y " & PTH & "\" & FILES & " " & PTH2 & "\"
    Set wsh = Nothing
End Sub

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/v2x3jyejxffefyfyx77.html

你可能感兴趣的内容

大家正在搜

非常风气网www.verywind.cn

VBA 移动文件夹内所有文件，有重复则强制覆盖

相关了解……

你可能感兴趣的内容