Excel VBA 移动文件和文件夹

来源：互联网发布：windows 10可以投屏吗编辑：程序博客网时间：2024/06/01 09:42

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 = NothingEnd 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 = NothingEnd Sub

0 0