Question

vb 筛选出文件夹

我现在列出一堆文件夹的目录.怎么将含有数字的文件夹选出来.

Answer 1

调用下面的函数进行检测

Function HaveNum(S As String) As Boolean
'功能说明:此函数用于判断一个字符串S中,是否含有数字
'参数说明: S 为要检查的字符串
'返回值: True表示含有数字,False表示不含数字
Dim sN As String, I As Integer
sN = "0123456789"
HaveNum = False
For I = 1 To Len(S)
If InStr(sN, Mid(S, I, 1)) > 0 Then
HaveNum = True
Exit Function
End If
Next
End Function