If isFindHandle <> -1 Then
Do While Out
fileName = StripNulls(wfd.cFileName)
If fileName <> "." And fileName <> ".." Then
FileCount = FileCount + 1
Open Text1.Text & "\" & fileName For Input As #3
Line Input #3, t
Combo1.AddItem fileName & "题目:" & t
Close #3
End If
Out = FindNextFile(isFindHandle, wfd)
Loop
End If
就是运行到红色那里,会出现那个提示,
而且只有在打开 D:\vb教程\vb-edu\VB-控制\ 这个文件夹的时候,才会提示