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


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

你可能感兴趣的:(Excel,VBA,excel,vba)