Excel VBA 移动文件和文件夹

之前有博主的方法，然后觉得可以1和2结合一下，所以试试看。

先放上Excel VBA 移动文件和文件夹的方法。等我研究一下再放新方法。学习学习~

1、移动指定文件：

Public Sub 移动文件()
    Dim myFile As String
    Dim myNewFilePath As String
    Dim fso As Scripting.FileSystemObject
    myFile = ThisWorkbook.Path & "\test.txt"    '要移动的文件
    myNewFilePath = ThisWorkbook.Path & "\hhh\"    '要移动的位置
    Set fso = New Scripting.FileSystemObject
    If fso.FileExists(myFile) Then
        fso.MoveFile myFile, myNewFilePath
        MsgBox "已经将文件 " & myFile & " 移到了文件夹 " & myNewFilePath
    Else
        MsgBox "要移动的文件不存在"
    End If
    Set fso = Nothing
End Sub

• 1
• 2
• 3
• 4
• 5
• 6
• 7
• 8
• 9
• 10
• 11
• 12
• 13
• 14
• 15
• 16
• 17
• 18

2、移动文件夹：

Public Sub 移动文件夹()
    Dim myFolder As String
    Dim myNewFilePath As String
    Dim fso As Scripting.FileSystemObject
    myFolder = ThisWorkbook.Path & "\myfolder"    '要移动的文件夹
    myNewFilePath = ThisWorkbook.Path & "\testfile\"    '要移动的位置
    Set fso = New Scripting.FileSystemObject
    If fso.FolderExists(myFolder) Then
        fso.MoveFolder myFolder, myNewFilePath
        MsgBox "已经将文件夹 " & myFolder & " 移到了文件夹 " & myNewFilePath
    Else
        MsgBox "要移动的文件夹不存在"
    End If
    Set fso = Nothing
End Sub