Q：如下圖1所示，在工作表列A中存儲著需要移動的文件所在的文件夾路徑，列B中是要將文件移到的目標文件夾路徑，現在需要將列A中文件夾下的文件移到列B中文件夾內，如何實現？
圖1
A：下面使用FileSystemObject對象的MoveFile方法來移動文件：
Sub MoveFilesToNewFolder()
‘聲明FileSystemObject對象
Dim FSO As Object
‘源文件路徑
Dim strSourcePath As String
‘目標路徑
Dim strTargetPath As String
‘文件類型
Dim strFileExt As String
‘文件名
Dim strFileNames As String
‘最后一行行號
Dim lngLastRow As Long
Dim i As Long
lngLastRow = Cells(Rows.Count,1).End(xlUp).Row
For i = 2 To lngLastRow
strSourcePath = Range(“A”& i).Value
strTargetPath = Range(“B”& i).Value
‘可以修改為你想要移動的文件擴展類型,例如*.docx
strFileExt = “*.*”
If Right(strSourcePath, 1) <>”\” Then
strSourcePath = strSourcePath & “\”
End If
strFileNames = Dir(strSourcePath &strFileExt)
If Len(strFileNames) = 0 Then
MsgBox strSourcePath & “中沒有文件.”
End If
Set FSO = CreateObject(“Scripting.FileSystemObject”)
‘目標路徑不存在則創建該路徑
On Error Resume Next
FSO.CreateFolder (strTargetPath)
‘移動文件
FSO.MoveFile _
Source:=strSourcePath &strFileExt, _
Destination:=strTargetPath
Next i
End Sub
代碼中，你可以修改
strFileExt =”*.*”
為你想要移動的文件擴展名，從而實現只移動該類型的文件。
語句：
On Error Resume Next
FSO.CreateFolder(strTargetPath)
在不存在指定名稱的文件夾時，將會創建該文件夾。
