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

写个函数..查找这文件夹的文件就行.

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

Option Explicit
Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long
Private Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type
Private Type WIN32_FIND_DATA
dwFileAttributes As Long
ftCreationTime As FILETIME
ftLastAccessTime As FILETIME
ftLastWriteTime As FILETIME
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved0 As Long
dwReserved1 As Long
cFileName As String * 255
cAlternate As String * 14
End Type

Private Sub cmdFindFiles_Click()
Dim wfd As WIN32_FIND_DATA
Dim isFindHandle As Long
Dim FileCount As Long
Dim Out As Long
Dim fileName As String
Out = True
isFindHandle = FindFirstFile("D:\vb\*", wfd)
If isFindHandle <> -1 Then

Do While Out
fileName = StripNulls(wfd.cFileName)

If fileName <> "." And fileName <> ".." Then
FileCount = FileCount + 1
List1.AddItem fileName
End If

Out = FindNextFile(isFindHandle, wfd)
Loop
End If

FindClose isFindHandle

MsgBox "D:\vb\中共有文件与文件夹数:" & FileCount
End Sub

Private Function StripNulls(OriginalStr As String) As String
If (InStr(OriginalStr, Chr(0)) > 0) Then
OriginalStr = Left(OriginalStr, InStr(OriginalStr, Chr(0)) - 1)
End If
StripNulls = OriginalStr
End Function

谢谢，琢磨琢磨！

我把ＬＩＳＴＢＯＸ中显示为了每个文本的第一行，也就是题目，
但是在这句的时候：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-控制＼　　这个文件夹的时候，才会提示