'判断上传的文件名中是否带有中文
Function CheckExp(patrn, strng)
Dim regEx, Match
Set regEx = New RegExp
regEx.Pattern = patrn
regEx.IgnoreCase = true
regEx.Global = True
Matches = regEx.test(strng)
CheckExp = matches
End Function
Function chkzi2(f_Str)
if Not IsNull(f_Str) Then
if CheckExp("^[^/u4E00-/u9FA5]+$", f_Str)=True then
chkzi2=False '不包含中文
Else
chkzi2=True '包含中文
End If
End If
End Function