如何限制上傳檔案的副檔名

老子xin坏

如何限制上傳檔案的副檔名
如：
我只想上傳副檔名為EXE或RAR的檔案
這個代碼哪位帥哥有啊？

守护天使

有沒有一個現成的代碼是可以用來調用的

森林的眼泪

cType="rar,exe" '文件类型

Function getExt(name)
getExt = right(name, 3)
End Function
Function isf(fileName, fType)
ext = getExt(fileName)
isf = False
typeList = split(fType, ",")
For ii = LBound(typeList) To UBound(typeList)
If UCase(ext) = UCase(typeList(ii)) Then
isf = True
Exit For
End If
Next
End Function

If isf(fileName, cType) Then
上传
else
..........

仅供参考

梧桐雨love

谢谢，这两天休息了，将代码看一下，呵呵，谢谢zhulei1978版主的帮忙