👌 🐛 ✨ 修改 @MoYuan-CN 的 Review，修复已知问题

2025-02-03 21:53:49 +08:00
parent 86b0e6d459
commit fc1519e9b1
2 changed files with 39 additions and 27 deletions
@@ -75,7 +75,7 @@

        For Each d In directories
            If Directory.EnumerateFileSystemEntries(d).Count = 0 Then Continue For
-            If IsVerRedundant(d) OrElse IsMustExport(d) Then Continue For
+            If IsVerRedundant(d, PageVersionLeft.Version.PathIndie) OrElse IsMustExport(d, PageVersionLeft.Version.PathIndie) Then Continue For
            Dim title As String = ""
            Dim listItem As New MyListItem
            If Titles.TryGetValue(GetFolderNameFromPath(d), title) Then 'title 作为引用类型传入
@@ -107,7 +107,7 @@
        Next

        For Each f In files
-            If IsVerRedundant(f) OrElse IsMustExport(f) Then Continue For
+            If IsVerRedundant(f, PageVersionLeft.Version.PathIndie) OrElse IsMustExport(f, PageVersionLeft.Version.PathIndie) Then Continue For
            Dim title As String = ""
            Dim listItem As New MyListItem
            If Titles.TryGetValue(f, title) Then 'title 作为引用类型传入