如何将超过指定文件夹中的文件移至目标文件夹？

问：如下图一所示，在工作表列A中存储着需要移动的文件所在的文件夹路径，列B中是要将文件移到的目标文件夹路径，现在需要将列A中文件夹下的文件移到列B中文件夹内，如何实现？

图一

答：下面使用文件系统对象对象的旧名方法来移动文件：

子移动文件文件夹()

'声明文件系统对象对象

以暗淡的自由空间光通信系统为对象

'源文件路径

将字符串形式的字符串变暗

'目标路径

将字符串形式的目标路径变暗

'文件类型

将字符串形式的文本变暗

'文件名

将字符串形式的文件名变暗

'最后一行行号

昏暗的灯光和长长的一样

模糊如龙

单元格（行。计数，1)。结束(xlUp).排

对于i=2至lngLastRow

strSourcePath=Range("A" i).价值

strTargetPath=范围(“乙”字第一)号.价值

'可以修改为你想要移动的文件扩展类型，例如*.文档

strFileExt=" * .*"

如果正确(strSourcePath，1) "\ "那么

strSourcePath=strSourcePath "\ "

如果…就会结束

strFileNames=Dir(StrsourcePath Strfileext)

如果Len(strFileNames)=0，则

MsgBox strSourcePath "中没有文件."

如果…就会结束

设置FSO=创建对象("脚本。文件系统对象")

'目标路径不存在则创建该路径

出错时继续下一步

FSO .CreateFolder (strTargetPath)

'移动文件

FSO .MoveFile _

source :=strSourcePath strfilext，_

Destination:=strTargetPath

接下来我

末端接头

代码中，你可以修改

strFileExt=" * .*"

为你想要移动的文件扩展名，从而实现只移动该类型的文件。

语句：

出错时继续下一步

FSO .CreateFolder(strTargetPath)

在不存在指定名称的文件夹时，将会创建该文件夹。