vba 文件夹照片复制到文件夹

使用VBA可以轻松实现将文件夹中的照片复制到另一个文件夹。

首先，我们需要在VBA中引用Microsoft Scripting Runtime库以便使用FileSystemObject对象。在VBA编辑器中选择“工具”菜单下的“引用”，然后勾选“Microsoft Scripting Runtime”并点击“确定”。

下面是一个示例代码，可以将一个文件夹中的所有照片复制到另一个文件夹中：

Sub 复制照片()
    Dim fso As New Scripting.FileSystemObject
    Dim sourceFolder As Scripting.Folder
    Dim destinationFolder As Scripting.Folder
    Dim file As Scripting.File
    
    ' 设置源文件夹和目标文件夹路径
    Set sourceFolder = fso.GetFolder("D:\源文件夹路径")
    Set destinationFolder = fso.GetFolder("D:\目标文件夹路径")
    
    ' 循环遍历源文件夹中的所有文件
    For Each file In sourceFolder.Files
        ' 判断文件是否为图片文件
        If InStr(1, file.Type, "image") > 0 Then
            ' 复制文件到目标文件夹
            fso.CopyFile file.Path, destinationFolder.Path & "\" & file.Name, True
        End If
    Next file
    
    ' 释放对象
    Set fso = Nothing
    Set sourceFolder = Nothing
    Set destinationFolder = Nothing
    
    MsgBox "照片复制完成！"
End Sub

在代码中，您需要将`源文件夹路径`和`目标文件夹路径`替换为您实际使用的文件夹路径。

以上示例代码会将源文件夹中的所有图片文件复制到目标文件夹中，并弹出一个消息框提示复制完成。

希望以上解释对您有所帮助！