fix: 少了一个字

This commit is contained in:
SALTWOOD
2024-08-15 17:24:42 +08:00
parent 8b0d9e5a5c
commit 3af99aca0a
@@ -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