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

Question

问题要求:用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 "

Answer 1

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

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 "

Answer 2

谢谢 太感谢了！

Answer 3

：）不客气