vbs对文件夹内所有文件的移动

问题要求:用vbs代码实现请求输入两个文件夹的地址 把其中一个文件夹内的所有文件移动到另一个文件夹！我自己写的只能一个文件一个文件移动 不能全部移动 下面是我自己写的代码
Dim path1
Dim path2
set fs = createobject("scripting.filesystemobject")
path1 = InputBox ( " Please enter the address of the file you want to move : " , " SourceFile " , " please input " )
path2 = InputBox ( " Please enter the address you want to move to : " , " DestinationFolder " , " please input " )
fs.movefile Path1, Path2
MsgBox " Move successful "

用fso读取目标文件夹下的所有文件，然后循环移动就行了，示例代码如下

img

Dim SourceFolder
Dim DestinationFolder
set fs = createobject("scripting.filesystemobject")
SourceFolder = InputBox ( " Please enter the address of the file you want to move : " , " SourceFolder " , " please input " )
DestinationFolder = InputBox ( " Please enter the address you want to move to : " , " DestinationFolder " , " please input " )

if right(DestinationFolder,1)<>"\" then DestinationFolder=DestinationFolder&"\"

set folder=fs.getfolder(SourceFolder)
set files=folder.files'获取所有文件
for each file in files
  arr=split(file,"\")
  filename=arr(ubound(arr))
  fs.MoveFile file,DestinationFolder&filename
next
set folder=nothing
set files=nothing
set fs=nothing

MsgBox " Move successful "

img

一次只能移动一个文件，用循环语句实现移动所有文件。

操作系统也是一个一个移动，没看到过全部移动，毕竟只有内存才支持

你可以上网查一下vbs怎么直接使用cmd语句
cmd语句可以实现对整个文件夹的移动
例如:
copy A B
A为原文件夹路径，B为目标路径

您好，我是有问必答小助手，您的问题已经有小伙伴帮您解答，感谢您对有问必答的支持与关注！
PS：问答VIP年卡 【限时加赠：IT技术图书免费领】，了解详情>>> https://vip.csdn.net/askvip?utm_source=1146287632