内容摘要:
Function isFilename(aFilename)Dim sErrorStr,iNameLength,iisFilename=TRUEsErrorStr=Array('/','\',':','*','?','''','','','|')iNameLength=Len(aFilename)If iNameLength1 Or iNameLength=......
|
Function isFilename(aFilename)
Dim sErrorStr,iNameLength,i
isFilename=TRUE
sErrorStr=Array("/","\",":","*","?","""","<",">","|")
iNameLength=Len(aFilename)
If iNameLength<1 Or iNameLength=null Then
isFilename=FALSE
Else
For i=0 To 8
If instr(aFilename,sErrorStr(i)) Then
isFilename=FALSE
End If
Next
End If
End Function
|