如何用vba移动文件或文件夹？

vba没有内置移动文件或文件夹的语句或函数。

在vba里面移动文件或文件夹可以使用FileSystemObject对象的MoveFolder方法移动文件夹，使用FileSystemObject对象的MoveFile方法移动文件。

它们的语法都是类似

object.MoveFolder ( source, destination );

object.MoveFile ( source, destination );

其中source参数为要移动的文件或文件夹的路径，可以包含通配符。destination参数为要移动的目的文件夹所在的路径。

代码如下：

Sub QQ1722187970()
    Dim oFso As Object
    Set oFso = CreateObject("Scripting.FileSystemObject")
    Dim sOldFile As String
    Dim sOldPath As String
    Dim sNewFile As String
    Dim sNewPath As String
    Dim sPath As String
    sPath = Excel.ThisWorkbook.Path
    sNewPath = sPath & "\test"
    '把当前路径的所有word文档移动到新的文件夹中
    oFso.movefile sPath & "\*.doc*", sNewPath
End Sub