检查字符串strSource是否为big或big5码

答案：Public Function CheckBIG(strSource As String) As Boolean 
Dim idx As Long 
Dim ByteTemp() As Byte 
CheckBIG = False 
For idx = 1 To Len(strSource) 
　　ByteTemp = StrConv(Mid(strSource, idx, 1), vbFromUnicode) 
　　If UBound(ByteTemp) > 0 Then 
　　　　If (ByteTemp(1) >= 64) And (ByteTemp(1) <= 126) Then 
　　　　　　CheckBIG = True 
　　　　　　Exit For 
　　　　End If 
　　End If 
Next idx 
End Function 

上一个：一个老个写的无组件上传，呵呵。有意思。
下一个：前两天有人问怎么取得一个目录下的文件，下面就是例子