Dim str = "\/:*?""<>|"
If Trim(文件名) Like "*[ & str & ]*" Then
MsgBox("文件名不能含有特殊字符" & str, MsgBoxStyle.Exclamation, "警告")
End If
Dim str = "\/:*?""<>|"
If Trim(文件名) Like "*[ & str & ]*" Then
MsgBox("文件名不能含有特殊字符" & str, MsgBoxStyle.Exclamation, "警告")
End If