FileSystemWatcher.Changed事件在共享Excel关闭时触发的技术咨询

1. 共享Excel文件关闭触发Changed事件的原因 #

Excel在共享编辑模式下的文件处理逻辑和非共享模式完全不同：

• 共享模式开启后，Excel会生成一个隐藏的临时文件（格式为~$[文件名].xlsx），用来实时跟踪多人编辑的变更、锁定状态等元数据。
• 当关闭共享文件时，Excel会把临时文件里的所有编辑内容合并到主文件，同时更新主文件的LastWrite时间戳，还会修改文件的属性（比如调整存档属性标记）。
• 你的FileSystemWatcher监听了NotifyFilters.LastWrite Or NotifyFilters.Attributes，这两个条件同时满足时就会触发Changed事件。
• 非共享模式下，Excel关闭时只会释放文件锁，不会修改主文件的LastWrite时间或属性，所以不会触发事件。

2. 判断Changed事件是否因文件关闭触发 #

可以通过以下几种方式判断：

• 检查文件锁定状态：事件触发后尝试以独占方式打开文件，如果能成功打开，说明文件已经被关闭（Excel打开文件时会加独占锁，关闭后才会释放）。示例代码：

Private Function IsFileClosed(filePath As String) As Boolean
    Try
        Using fs As New FileStream(filePath, FileMode.Open, FileAccess.ReadWrite, FileShare.None)
            Return True
        End Using
    Catch ex As IOException
        ' 文件被锁定，说明还处于打开状态
        Return False
    End Try
End Function

• 结合临时文件的删除事件：共享文件关闭时，Excel会删除对应的~$开头的临时文件。可以额外监听FileSystemWatcher的Deleted事件，当检测到目标文件的临时文件被删除，且随后触发主文件的Changed事件，大概率是文件关闭导致的。
• 分析事件触发特征：文件关闭触发的Changed事件通常是单次，且ChangeType可能同时包含LastWrite和Attributes；而保存操作会触发多次Changed事件（因为Excel的保存逻辑是先写临时文件再替换主文件）。

3. 实现仅在Excel文件修改/保存时触发事件 #

可以通过以下方案过滤掉关闭触发的事件：

• 缩小监听范围：将Filter设置为仅监听Excel文件，比如watcher.Filter = "*.xlsx;*.xls;*.xlsm"，避免无关文件的干扰。
• 忽略文件关闭触发的事件：在Changed事件中调用上面的IsFileClosed方法，如果返回True（文件已关闭），就跳过本次事件处理；如果返回False（文件还在打开，说明是保存操作），再处理事件。
• 基于时间延迟去重：Excel保存时会在短时间内触发多次Changed事件，而关闭触发的事件通常是最后一次。可以设置一个500ms左右的延迟，延迟后检查文件的最终状态，只处理真正的保存变更。示例代码：

Private lastEventTime As Dictionary(Of String, DateTime) = New Dictionary(Of String, DateTime)()
Private Sub File_Changed(ByVal source As Object, ByVal e As FileSystemEventArgs)
    Dim filePath = e.FullPath
    ' 过滤非Excel文件
    If Not {".xlsx", ".xls", ".xlsm"}.Contains(Path.GetExtension(filePath).ToLower()) Then
        Return
    End If

    SyncLock lastEventTime
        If lastEventTime.ContainsKey(filePath) Then
            Dim timeDiff = DateTime.Now - lastEventTime(filePath)
            If timeDiff.TotalMilliseconds < 500 Then
                ' 短时间内重复事件，跳过
                lastEventTime(filePath) = DateTime.Now
                Return
            End If
        End If
        lastEventTime(filePath) = DateTime.Now
    End SyncLock

    ' 延迟处理，确保是保存操作而非关闭
    Task.Delay(500).ContinueWith(Sub()
                                     If Not IsFileClosed(filePath) Then
                                         ' 处理保存/修改事件
                                         Console.WriteLine($"文件已保存: {e.Name}")
                                     End If
                                 End Sub)
End Sub

• 监听Renamed事件辅助判断：Excel保存时会将临时文件重命名为原文件，因此可以同时监听Renamed事件，当Renamed事件触发时，说明是保存操作，结合Changed事件一起处理，能提高判断准确性。

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