VB代码优化需求：批量移动源文件夹中未存在于目标的最早文件

以下是优化后的代码，实现源文件夹所有文件按创建时间从最早到最晚逐个移动，同时跳过目标文件夹已存在的文件且不终止流程：

Function OldestFile(strFold As String) As String
    Dim FSO As Object, Folder As Object, File As Object, oldF As String
    Dim lastFile As Date
    
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set Folder = FSO.GetFolder(strFold)
    
    ' 处理源文件夹为空的情况
    If Folder.Files.Count = 0 Then
        OldestFile = ""
        Exit Function
    End If
    
    lastFile = Now
    oldF = ""
    
    For Each File In Folder.Files
        If File.DateCreated < lastFile Then
            lastFile = File.DateCreated
            oldF = File.Name
        End If
    Next
    
    OldestFile = oldF
End Function

Sub MoveAllOldestFiles()
    Dim FromPath As String, ToPath As String, fileName As String
    
    FromPath = "E:\Source\"
    ToPath = "E:\Destination\"
    
    ' 循环遍历源文件夹所有文件
    Do
        fileName = OldestFile(FromPath)
        
        ' 源文件夹无文件时退出循环
        If fileName = "" Then Exit Do
        
        ' 检查目标文件夹是否存在同名文件
        If Dir(ToPath & fileName) = "" Then
            ' 执行移动操作
            Name FromPath & fileName As ToPath & fileName
        Else
            ' 跳过已存在文件，可选择输出提示到调试窗口或弹窗
            Debug.Print "跳过已存在文件: " & fileName
            ' MsgBox "文件 """ & fileName & """ 已存在于目标文件夹，跳过..."
        End If
    Loop
End Sub

关键优化点： #

• 添加循环逻辑：使用Do...Loop循环持续获取并移动最早创建的文件，直到源文件夹为空
• 跳过已存在文件：通过Dir函数检查目标文件，存在则跳过，流程继续执行
• 增强鲁棒性：OldestFile函数新增源文件夹为空的判断，避免空值错误
• 可选提示方式：提供调试窗口输出和弹窗两种提示方式，可按需选择

内容的提问来源于stack exchange，提问作者Salman Shafi