通过给出一个文件夹的路径，怎么能计算出里面的文件数？
只要总数就好了。

我在帮助里找了一下，查找返回的好象是路径，我是刚学，版主给详细点吧．

谢谢，琢磨琢磨！

我把ＬＩＳＴＢＯＸ中显示为了每个文本的第一行，也就是题目，
但是在这句的时候：Line Input #3, t
老提示：输入超出文件尾，这是什么意思
只在打开D:\vb教程\vb-edu\VB-控制　　这个文件夹的时候才会提示，其他文件夹正常

就是运行的时候，提示：输入超出文件尾
而且是只在打开那个　　D:\vb教程\vb-edu\VB-控制　文件夹中的文件的时候，才会提示

也就是不知道那个　提示到底是什么意思　　是文件太长了，文本框放不下？还是？

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-控制＼　　这个文件夹的时候，才会提示

text1.text="D:\vb教程\vb-edu\VB-控制\"
fileName 就是文本文件的名字
Line Input #3, t　　也就是打开那个文本文件的第一行

打开的就是已经存在的，所以不用判断了

恩，好的我再试试

楼上的办法还好，可行．

我的问题找到了，是因为没有判断文本文件是否为空，因为那个文件夹中有个空文本，所以就出现了那个提示
现在明白了．
谢谢大家！