Skip to content

chore:增加更多的路径检查 #6147

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
copytiao wants to merge 8 commits into
base: main
Choose a base branch
from
Open

chore:增加更多的路径检查 #6147

Changes from all commits
Commits
Show all changes
8 commits
Select commit Hold shift + click to select a range
d313a57
chore(Application):增加更多的路径检查
copytiao Apr 14, 2025
4cc9ad9
pref(Application)：合并一些检查
copytiao Apr 14, 2025
6a22e1e
chore:加一个系统目录的检测
copytiao Apr 16, 2025
063a226
chore:重新实现
copytiao Apr 16, 2025
6b11e22
chore:调整弹窗w'b
copytiao Apr 16, 2025
731cda8
Merge pull request #26 from Hex-Dragon/main
copytiao Apr 27, 2025
cdc86ad
Merge pull request #36 from Hex-Dragon/main
copytiao Apr 28, 2025
3764446
Merge pull request #46 from Hex-Dragon/main
copytiao Apr 30, 2025
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
16 changes: 15 additions & 1 deletion Plain Craft Launcher 2/Pages/PageSelectLeft.xaml.vb
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -136,7 +136,6 @@
Setup.Set("LaunchFolderSelect", McFolderList(0).Path.Replace(Path, "$"))
CType(FrmSelectLeft.PanList.Children(1), MyListItem).Checked = True
End If

Catch ex As Exception
Log(ex, "构建 Minecraft 文件夹列表 UI 出错", LogLevel.Feedback)
Finally
Expand All @@ -158,6 +157,21 @@
NewFolder = SelectFolder()
If NewFolder = "" Then Exit Sub
If NewFolder.Contains("!") OrElse NewFolder.Contains(";") Then Hint("Minecraft 文件夹路径中不能含有感叹号或分号！", HintType.Critical) : Exit Sub
'特殊目录检查（#6133）
If NewFolder.Contains(IO.Path.GetTempPath()) OrElse
NewFolder.ContainsF("WeChat") OrElse
NewFolder.ContainsF("Tencent") OrElse
NewFolder.ContainsF("Documents") OrElse
NewFolder.ContainsF("cache") OrElse
NewFolder.StartsWithF(Environment.GetFolderPath(Environment.SpecialFolder.Windows)) OrElse
NewFolder.ContainsF("temp") Then
Select Case MyMsgBox($"在此处建立版本文件夹可能会导致清理系统垃圾时丢失游戏存档或游戏崩溃！{vbCrLf}强烈建议更换目录后再添加。", "环境警告", "继续添加","取消添加", IsWarn:=True)
Case 0

Case 1
Exit Sub
End Select
End If
'要求输入显示名称
Dim SplitedNames As String() = NewFolder.TrimEnd("\").Split("\")
Dim DefaultName As String = If(SplitedNames.Last = ".minecraft", If(SplitedNames.Count >= 3, SplitedNames(SplitedNames.Count - 2), ""), SplitedNames.Last)
Expand Down