在VBA代码中，让我们借助于WSH，实现文件的移动MoveFile

大家好，我们今日继续讲解VBA代码解决方案的第67讲内容：利用WSH,在VBA中移动文件，在上一讲中我们讲了Windows Scripting Host的由来和利用的价值，今天我们就试着利用这个脚本语言来实现我们的一些日常常用的文件操作，当然，这些方法不是唯一的，只是凭使用者的习惯，对于使用程序的人员来说，都是一样的。今日讲的是把文件从一个地方移动到另一个地方，可以使用FileSystemObject对象的MoveFile方法。

应用于FileSystemObject对象的MoveFile方法将一个或多个文件从一个地方移动到另一个地方，语法如下：

object.MoveFile source, destination

参数

a) object是必须的， FileSystemObject对象的名称。

b) source是必须的，一个或多个要移动文件的路径，source参数字符串在路径的最后部件中可以使用通配符。

c) destinatio是必须的，一个或多个文件要移动到的目标路径，不能使用通配符。

如下面的代码所示。

Sub MyMoveFile()

Dim MyFile As Object

On Error Resume Next

Set MyFile = CreateObject('Scripting.FileSystemObject')

MyFile.MoveFile ThisWorkbook.Path & '\abc.docx', ThisWorkbook.Path & '\ABC\'

Set MyFile = Nothing

MsgBox 'OK!'

End Sub代码解析：

MoveFile过程使用MoveFile方法将示例文件所在文件夹中的'abc.docx'文件移动到'ABC'文件夹中。

第4行代码使用CreateObject函数创建FileSystemObject对象并将该对象赋给变量MyFile。

第5行代码使用MoveFile方法移动文件。

运行MoveFile过程将示例文件所在文件夹中的'abc.docx'文件移动到同一目录中的'ABC'文件夹。

特别注意点：我上述的代码在64位机已经测试，可以使用的。我的计算机如下图：

代码截图：

运行前：

运行后：

今日内容回向：

1 读者是否清楚Set MyFile = CreateObject('Scripting.FileSystemObject')的意义呢？前些时还有一位读者问我这个问题，对于我的讲解： 'CreateObject函数创建FileSystemObject对象并将该对象赋给变量MyFile。'是否明白呢？

2 MoveFile 是WSH的语言，其意义是否明白呢？

分享成果，随喜正能量