From fffa26cd4c29acb8ccac8b4c618c4d0dc7d96778 Mon Sep 17 00:00:00 2001 From: wyc-26 Date: Sun, 29 Mar 2026 20:22:41 +0800 Subject: [PATCH] =?UTF-8?q?fix(folder-select):=20=E6=97=A0=E6=B3=95?= =?UTF-8?q?=E4=BF=9D=E5=AD=98=E8=B7=AF=E5=BE=84=E5=90=AB=E7=A8=8B=E5=BA=8F?= =?UTF-8?q?=E7=9A=84=E5=90=AF=E5=8A=A8=E8=B7=AF=E5=BE=84=E7=9A=84=20Minecr?= =?UTF-8?q?aft=20=E6=96=87=E4=BB=B6=E5=A4=B9?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Plain Craft Launcher 2/Modules/Minecraft/ModMinecraft.vb | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/Plain Craft Launcher 2/Modules/Minecraft/ModMinecraft.vb b/Plain Craft Launcher 2/Modules/Minecraft/ModMinecraft.vb index ad7ebd4..0ad1611 100644 --- a/Plain Craft Launcher 2/Modules/Minecraft/ModMinecraft.vb +++ b/Plain Craft Launcher 2/Modules/Minecraft/ModMinecraft.vb @@ -9,7 +9,9 @@ Public Module ModMinecraft ''' Public Property McFolderSelected As String Get - If _McFolderSelected Is Nothing Then _McFolderSelected = Settings.Get("LaunchFolderSelect") '仅在首次读取时触发 + Dim McFolderSelectedLast As String = Settings.Get("LaunchFolderSelect") + McFolderSelectedLast = McFolderSelectedLast.Replace("$", Path) + If _McFolderSelected Is Nothing Then _McFolderSelected = McFolderSelectedLast '仅在首次读取时触发 Return _McFolderSelected End Get Set(Value As String)