From e91d1a2835d858d8013391ecf868ec6f8c3da9ed Mon Sep 17 00:00:00 2001
From: tangge233 <tangge233@qq.com>
Date: Wed, 22 Jan 2025 21:51:01 +0800
Subject: [PATCH] chore: add more try catch

---
 .../PageVersion/PageVersionShader.xaml.vb     | 46 ++++++++++---------
 .../PageVersion/PageVersionWorld.xaml.vb      | 30 ++++++------
 2 files changed, 42 insertions(+), 34 deletions(-)

diff --git a/Plain Craft Launcher 2/Pages/PageVersion/PageVersionShader.xaml.vb b/Plain Craft Launcher 2/Pages/PageVersion/PageVersionShader.xaml.vb
index 136cf04b..35832d10 100644
--- a/Plain Craft Launcher 2/Pages/PageVersion/PageVersionShader.xaml.vb	
+++ b/Plain Craft Launcher 2/Pages/PageVersion/PageVersionShader.xaml.vb	
@@ -58,31 +58,35 @@ Public Class PageVersionShader
         If ModeDebug Then Log("[Shader] 共发现 " & FileList.Count & " 个光影包文件", LogLevel.Debug)
         PanList.Children.Clear()
         For Each i In FileList
-            Dim worldItem As MyListItem = New MyListItem With {
+            Try
+                Dim worldItem As MyListItem = New MyListItem With {
             .Title = GetFileNameWithoutExtentionFromPath(i),
             .Info = $"引入时间：{ File.GetCreationTime(i).ToString("yyyy'/'MM'/'dd")}",
             .Tag = i
             }
-            Dim BtnOpen As MyIconButton = New MyIconButton With {
-                .Logo = Logo.IconButtonOpen,
-                .ToolTip = "打开",
-                .Tag = i
-            }
-            AddHandler BtnOpen.Click, AddressOf BtnOpen_Click
-            Dim BtnDelete As MyIconButton = New MyIconButton With {
-                .Logo = Logo.IconButtonDelete,
-                .ToolTip = "删除",
-                .Tag = i
-            }
-            AddHandler BtnDelete.Click, AddressOf BtnDelete_Click
-            Dim BtnCopy As MyIconButton = New MyIconButton With {
-                .Logo = Logo.IconButtonCopy,
-                .ToolTip = "复制",
-                .Tag = i
-            }
-            AddHandler BtnCopy.Click, AddressOf BtnCopy_Click
-            worldItem.Buttons = {BtnOpen, BtnDelete, BtnCopy}
-            PanList.Children.Add(worldItem)
+                Dim BtnOpen As MyIconButton = New MyIconButton With {
+                    .Logo = Logo.IconButtonOpen,
+                    .ToolTip = "打开",
+                    .Tag = i
+                }
+                AddHandler BtnOpen.Click, AddressOf BtnOpen_Click
+                Dim BtnDelete As MyIconButton = New MyIconButton With {
+                    .Logo = Logo.IconButtonDelete,
+                    .ToolTip = "删除",
+                    .Tag = i
+                }
+                AddHandler BtnDelete.Click, AddressOf BtnDelete_Click
+                Dim BtnCopy As MyIconButton = New MyIconButton With {
+                    .Logo = Logo.IconButtonCopy,
+                    .ToolTip = "复制",
+                    .Tag = i
+                }
+                AddHandler BtnCopy.Click, AddressOf BtnCopy_Click
+                worldItem.Buttons = {BtnOpen, BtnDelete, BtnCopy}
+                PanList.Children.Add(worldItem)
+            Catch ex As Exception
+                Log(ex, $"[Shader] 读取 {i} 数据错误", LogLevel.Hint)
+            End Try
         Next
         RefreshUI()
     End Sub
diff --git a/Plain Craft Launcher 2/Pages/PageVersion/PageVersionWorld.xaml.vb b/Plain Craft Launcher 2/Pages/PageVersion/PageVersionWorld.xaml.vb
index 492591b1..6fac1b37 100644
--- a/Plain Craft Launcher 2/Pages/PageVersion/PageVersionWorld.xaml.vb	
+++ b/Plain Craft Launcher 2/Pages/PageVersion/PageVersionWorld.xaml.vb	
@@ -57,40 +57,44 @@ Public Class PageVersionWorld
         If ModeDebug Then Log("[World] 共发现 " & FileList.Count & " 个存档文件夹", LogLevel.Debug)
         PanList.Children.Clear()
         For Each i In FileList
-            Dim SaveLogo = i + "\icon.png"
-            If Not File.Exists(SaveLogo) Then SaveLogo = PathImage & "Icons/NoIcon.png"
-            Dim worldItem As MyListItem = New MyListItem With {
+            Try
+                Dim SaveLogo = i + "\icon.png"
+                If Not File.Exists(SaveLogo) Then SaveLogo = PathImage & "Icons/NoIcon.png"
+                Dim worldItem As MyListItem = New MyListItem With {
             .Logo = SaveLogo,
             .Title = GetFolderNameFromPath(i),
             .Info = $"创建时间：{ Directory.GetCreationTime(i).ToString("yyyy'/'MM'/'dd")}，最后修改时间：{Directory.GetLastWriteTime(i).ToString("yyyy'/'MM'/'dd")}",
             .Tag = i
             }
-            Dim BtnOpen As MyIconButton = New MyIconButton With {
+                Dim BtnOpen As MyIconButton = New MyIconButton With {
                 .Logo = Logo.IconButtonOpen,
                 .ToolTip = "打开",
                 .Tag = i
             }
-            AddHandler BtnOpen.Click, AddressOf BtnOpen_Click
-            Dim BtnDelete As MyIconButton = New MyIconButton With {
+                AddHandler BtnOpen.Click, AddressOf BtnOpen_Click
+                Dim BtnDelete As MyIconButton = New MyIconButton With {
                 .Logo = Logo.IconButtonDelete,
                 .ToolTip = "删除",
                 .Tag = i
             }
-            AddHandler BtnDelete.Click, AddressOf BtnDelete_Click
-            Dim BtnCopy As MyIconButton = New MyIconButton With {
+                AddHandler BtnDelete.Click, AddressOf BtnDelete_Click
+                Dim BtnCopy As MyIconButton = New MyIconButton With {
                 .Logo = Logo.IconButtonCopy,
                 .ToolTip = "复制",
                 .Tag = i
             }
-            AddHandler BtnCopy.Click, AddressOf BtnCopy_Click
-            Dim BtnInfo As MyIconButton = New MyIconButton With {
+                AddHandler BtnCopy.Click, AddressOf BtnCopy_Click
+                Dim BtnInfo As MyIconButton = New MyIconButton With {
                 .Logo = Logo.IconButtonInfo,
                 .ToolTip = "详情",
                 .Tag = i
             }
-            AddHandler BtnInfo.Click, AddressOf BtnInfo_Click
-            worldItem.Buttons = {BtnOpen, BtnDelete, BtnCopy, BtnInfo}
-            PanList.Children.Add(worldItem)
+                AddHandler BtnInfo.Click, AddressOf BtnInfo_Click
+                worldItem.Buttons = {BtnOpen, BtnDelete, BtnCopy, BtnInfo}
+                PanList.Children.Add(worldItem)
+            Catch ex As Exception
+                Log(ex, $"[World] 读取 {i} 数据错误", LogLevel.Hint)
+            End Try
         Next
         RefreshUI()
     End Sub