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