怎么样用VB在指定的目录下查找文件。

Question

用API函数！
Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
API说明：
Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long 
说明 
根据文件名查找文件 
返回值 
Long，如执行成功，返回一个搜索句柄。如果出错，返回一个INVALID_HANDLE_VALUE常数，一旦不再需要，应该用FindClose函数关闭这个句柄 
参数表 
参数 类型及说明 
lpFileName String，欲搜索的文件名。可包含通配符，并可包含一个路径或相对路径名 
lpFindFileData WIN32_FIND_DATA，这个结构用于装载与找到的文件有关的信息。该结构可用于后续的搜索 
注解 
由这个函数返回的句柄可以作为一个参数用于FindNextFile函数。这样一来，就可以方便的枚举出与lpFileName参数指定的文件名相符的所有文件
 
 
Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long 
说明 
根据调用FindFirstFile函数时指定的一个文件名查找下一个文件 
返回值 
Long，非零表示成功，零表示失败。如不再有与指定条件相符的文件，会将GetLastError设置成ERROR_NO_MORE_FILES 
参数表 
参数 类型及说明 
hFindFile Long，由FindFirstFile函数返回的搜索句柄 
lpFindFileData WIN32_FIND_DATA，这个结构用于装载与找到的文件有关的信息 

Answer 1

用FSO
下面的代码是查找目录下的所有的Excel文件
    Dim objFso As New Scripting.FileSystemObject
    Dim objFile As Scripting.File       '注释：文件对象
    Dim objFolder As Folder
    Dim strPath As String
    
    strPath = App.Path & "\" & gc_strSavePath
    Set objFolder = objFso.GetFolder(strPath)
    
    '检查目录中的文件
    Dim strFileName As String, i As Integer
    i = 1
    lvwFileList.ListItems.Clear
    For Each objFile In objFolder.Files
        If LCase$(Right$(objFile.ShortPath, 4)) = ".xls" Then
            strFileName = GetFileNameFromPath(objFile.name)
            lvwFileList.ListItems.Add , strFileName, strFileName
            lvwFileList.ListItems(i).SubItems(1) = objFile.DateLastModified
            objFile.Attributes = Normal
            i = i + 1
        End If
    Next objFile

Answer 2

用dir()函数就可以完成，例子MSDN上有

Answer 3

别动不动就引用API，多麻烦。DIR（）、FSO哪个不行？