SALTWOOD 2 лет назад
Родитель
Сommit
3af99aca0a
1 измененных файлов с 1 добавлено и 2 удалено
  1. 1 2
      Plain Craft Launcher 2/Modules/Base/ModValidate.vb

+ 1 - 2
Plain Craft Launcher 2/Modules/Base/ModValidate.vb

@@ -214,7 +214,6 @@ Public Class ValidateFolderName
         On Error Resume Next
         On Error Resume Next
         PathIgnore = New DirectoryInfo(Path).EnumerateDirectories
         PathIgnore = New DirectoryInfo(Path).EnumerateDirectories
     End Sub
     End Sub
-
     Public Overrides Function Validate(Str As String) As String
     Public Overrides Function Validate(Str As String) As String
         Try
         Try
             '检查是否为空
             '检查是否为空
@@ -235,7 +234,7 @@ Public Class ValidateFolderName
             Dim InvalidStrCheck As String = New ValidateExceptSame({"CON", "PRN", "AUX", "CLOCK$", "NUL", "COM0", "COM1", "COM2", "COM3", "COM4", "COM5", "COM6", "COM7", "COM8", "COM9", "LPT0", "LPT1", "LPT2", "LPT3", "LPT4", "LPT5", "LPT6", "LPT7", "LPT8", "LPT9"}, "文件夹名不可为 %!", True).Validate(Str)
             Dim InvalidStrCheck As String = New ValidateExceptSame({"CON", "PRN", "AUX", "CLOCK$", "NUL", "COM0", "COM1", "COM2", "COM3", "COM4", "COM5", "COM6", "COM7", "COM8", "COM9", "LPT0", "LPT1", "LPT2", "LPT3", "LPT4", "LPT5", "LPT6", "LPT7", "LPT8", "LPT9"}, "文件夹名不可为 %!", True).Validate(Str)
             If Not InvalidStrCheck = "" Then Return InvalidStrCheck
             If Not InvalidStrCheck = "" Then Return InvalidStrCheck
             '检查波浪号 (issue #4505)
             '检查波浪号 (issue #4505)
-            If Str.Contains("~") Then Return "文件名不能包含波浪号!"
+            If Str.Contains("~") Then Return "文件夹名不能包含波浪号!"
             '检查文件夹重名
             '检查文件夹重名
             Dim Arr As New List(Of String)
             Dim Arr As New List(Of String)
             If PathIgnore IsNot Nothing Then
             If PathIgnore IsNot Nothing Then