Dim i As Integer, j As Integer
Dim astr As String j = File1.ListCount astr = "text.htm" '这里是你的要找的文件名 For i = 0 To j - 1
If UCase(astr) = UCase(File1.List(i)) Then
File1.Selected(i) = True
Exit For
End If
Next
Dim astr As String j = File1.ListCount astr = "text.htm" '这里是你的要找的文件名 For i = 0 To j - 1
If UCase(astr) = UCase(File1.List(i)) Then
File1.Selected(i) = True
Exit For
End If
Next
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货