czjt1234

vbs

s1 = "d:\1"    '要被移动的文件夹
s2 = "d:\2"    '要移动到这个文件夹，且已有 d:\2\1 文件夹

Set oShell = CreateObject("Shell.Application")
Set oFolder = oShell.NameSpace(17).ParseName(s2).GetFolder
Set oFolderItem = oShell.NameSpace(17).ParseName(s1)
oFolder.MoveHere oFolderItem, 16
MsgBox "ok"
复制代码

win7_x64_sp1测试，运行后自动覆盖已有的 d:\2\1 文件夹
d:\1 文件夹里面有5G的文件，瞬间移动完成，说明是移动，而不是先复制后删除

czjt1234

s1 = "d:\1"    '要被移动的文件夹
s2 = "d:\2"    '要移动到这个文件夹，且已有 d:\2\1 文件夹

If Wsh.Arguments.Count > 0 Then s1 = Wsh.Arguments(0)
If Wsh.Arguments.Count > 1 Then s2 = Wsh.Arguments(1)

Set oShell = CreateObject("Shell.Application")
Set oFolder = oShell.NameSpace(17).ParseName(s2).GetFolder
Set oFolderItem = oShell.NameSpace(17).ParseName(s1)
oFolder.MoveHere oFolderItem, 16
Wsh.Echo s1
复制代码

支持命令行参数
第一个参数是要被移动的文件夹
第二个参数是要移动到的文件夹
参数必须是完整的路径