好问题！确实Application.Sync早就被弃用了，而且它本来就和OneDrive的同步机制不搭边。我整理了几个可行的方案，帮你判断OneDrive/SharePoint文件是否同步完成：

1. 读取文件的OneDrive同步扩展属性 #

这是最直接的方法——OneDrive会给同步中的文件添加特殊的扩展属性，我们可以用VBA读取这些属性来判断状态。

下面是一个示例函数，能返回指定文件的同步状态：

Function GetOneDriveSyncStatus(filePath As String) As String
    Dim shellApp As Object
    Dim folderObj As Object
    Dim targetFile As Object
    
    ' 创建Shell应用对象
    Set shellApp = CreateObject("Shell.Application")
    ' 获取文件所在的文件夹对象
    Set folderObj = shellApp.Namespace(Left(filePath, InStrRev(filePath, "\")))
    ' 获取目标文件对象
    Set targetFile = folderObj.ParseName(Mid(filePath, InStrRev(filePath, "\") + 1))
    
    ' 读取同步状态属性（英文系统下属性名为"System.Sync.Status"）
    If Not targetFile Is Nothing Then
        GetOneDriveSyncStatus = targetFile.ExtendedProperty("System.Sync.Status")
    Else
        GetOneDriveSyncStatus = "File not found"
    End If
    
    ' 释放对象
    Set targetFile = Nothing
    Set folderObj = Nothing
    Set shellApp = Nothing
End Function

你可以在代码里调用这个函数，根据返回值判断：

• "Synchronized"：文件已完全同步到云端
• "Sync pending"：文件等待同步
• "Syncing"：文件正在同步中
• "Error"：同步出现错误

注意：如果是中文系统，属性名可能会变成中文（比如"同步状态"），你可以先枚举文件夹的所有扩展属性找到对应名称，或者用属性索引值（比如287是英文系统中同步状态的索引）。

2. 对比本地文件与云端的修改时间（适合简单场景） #

如果只是判断文件是否已同步完成，你可以：

• 获取本地文件的最后修改时间（用FileSystemObject）
• 结合OneDrive/SharePoint的REST API，获取云端文件的最后修改时间
• 当两者时间一致（误差在几秒内），就认为同步完成

不过这个方法需要处理API认证（OAuth2），VBA实现起来稍显繁琐，适合有开发经验的企业场景。

3. 检查临时文件标志 #

OneDrive在同步大文件时，会创建临时文件（比如给原文件添加~tmp后缀，或者生成.part临时文件）。你可以检查目标文件路径下是否存在这类临时文件，如果不存在，大概率同步已经完成。

不过这个方法不是100%可靠，因为OneDrive的临时文件命名规则可能会更新，只能作为辅助判断。

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