如何读出一个目录中所有的文件？？？？

Question

可以使用Dir函数。比如： 
    Dim sFiles() As String 
    s = Dir("C:\Windows\*.*") 
    If s <> "" Then 
     ReDim sFiles(0) As String 
     i = 1 
     s = Dir() 
     While s <> "" 
     ReDim Preserve sFiles(i) As String 
     sFiles(i) = s 
     i = i + 1 
     s = Dir() 
     Wend 
    End If 

Answer 1

用FileListBox控件！--------------------------------------------------------------------
最好用FindFirstFile+FindNextFile+FindClose
FindFirstFile VB声明 
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参数指定的文件名相符的所有文件
 
FindNextFile VB声明 
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，这个结构用于装载与找到的文件有关的信息 
FindClose VB声明 
Declare Function FindClose Lib "kernel32" Alias "FindClose" (ByVal hFindFile As Long) As Long 
说明 
关闭由FindFirstFile函数创建的一个搜索句柄 
返回值 
Long，非零表示成功，零表示失败。会设置GetLastError 
参数表 
参数 类型及说明 
hFindFile Long，由FindFirstFile函数提供的搜索句柄 
WIN32_FIND_DATA
The WIN32_FIND_DATA structure describes a file found by the FindFirstFile, FindFirstFileEx, or FindNextFile function. typedef struct _WIN32_FIND_DATA { // wfd 
    DWORD dwFileAttributes; 
    FILETIME ftCreationTime; 
    FILETIME ftLastAccessTime; 
    FILETIME ftLastWriteTime; 
    DWORD    nFileSizeHigh; 
    DWORD    nFileSizeLow; 
    DWORD    dwReserved0; 
    DWORD    dwReserved1; 
    TCHAR    cFileName[ MAX_PATH ]; 
    TCHAR    cAlternateFileName[ 14 ]; 
} WIN32_FIND_DATA; 
 
Members
dwFileAttributes 
Specifies the file attributes of the file found. This member can be one or more of the following values: Attribute Meaning 
FILE_ATTRIBUTE_ARCHIVE The file or directory is an archive file or directory. Applications use this attribute to  files for backup or removal. 
FILE_ATTRIBUTE_COMPRESSED The file or directory is compressed. For a file, this means that all of the data in the file is compressed. For a directory, this means that compression is the default for newly created files and subdirectories. 
FILE_ATTRIBUTE_DIRECTORY The handle identifies a directory. 
FILE_ATTRIBUTE_ENCRYPTED The file or directory is encrypted. For a file, this means that all data streams are encrypted. For a directory, this means that encryption is the default for newly created files and subdirectories. 
FILE_ATTRIBUTE_HIDDEN The file or directory is hidden. It is not included in an ordinary directory listing. 
FILE_ATTRIBUTE_NORMAL The file or directory has no other attributes set. This attribute is valid only if used alone. 
FILE_ATTRIBUTE_OFFLINE The file data is not immediately available. Indicates that the file data has been physically moved to offline storage. 
FILE_ATTRIBUTE_READONLY The file or directory is read-only. Applications can read the file but cannot write to it or delete it. In the case of a directory, applications cannot delete it. 
FILE_ATTRIBUTE_REPARSE_POINT The file has an associated reparse point. 
FILE_ATTRIBUTE_SPARSE_FILE The file is a sparse file. 
FILE_ATTRIBUTE_SYSTEM The file or directory is part of the operating system or is used exclusively by the operating system. 
FILE_ATTRIBUTE_TEMPORARY The file is being used for temporary storage. File systems attempt to keep all of the data in memory for quicker access, rather than flushing it back to mass storage. A temporary file should be deleted by the application as soon as it is no longer needed. 
ftCreationTime 
Specifies a FILETIME structure containing the time the file was created. FindFirstFile and FindNextFile report file times in Coordinated Universal Time (UTC) format. These functions set the FILETIME members to zero if the file system containing the file does not support this time member. You can use the FileTimeToLocalFileTime function to convert from UTC to local time, and then use the FileTimeToSystemTime function to convert the local time to a SYSTEMTIME structure containing individual members for the month, day, year, weekday, hour, minute, second, and millisecond. 
ftLastAccessTime 
Specifies a FILETIME structure containing the time that the file was last accessed. The time is in UTC format; the FILETIME members are zero if the file system does not support this time member. 
ftLastWriteTime 
Specifies a FILETIME structure containing the time that the file was last written to. The time is in UTC format; the FILETIME members are zero if the file system does not support this time member. 
nFileSizeHigh 
Specifies the high-order DWORD value of the file size, in bytes. This value is zero unless the file size is greater than MAXDWORD. The size of the file is equal to (nFileSizeHigh * MAXDWORD) + nFileSizeLow. 
nFileSizeLow 
Specifies the low-order DWORD value of the file size, in bytes. 
dwReserved0 
If the dwFileAttributes member includes the FILE_ATTRIBUTE_REPARSE_POINT attribute, this member specifies the reparse tag. Otherwise, this value is undefined and should not be used. 
dwReserved1 
Reserved for future use. 
cFileName 
A null-terminated string that is the name of the file. 
cAlternateFileName 
A null-terminated string that is an alternative name for the file. This name is in the classic 8.3 (filename.ext) filename format. 
Res
If a file has a long filename, the complete name appears in the cFileName field, and the 8.3 format truncated version of the name appears in the cAlternateFileName field. Otherwise, cAlternateFileName is empty. As an alternative, you can use the GetShortPathName function to find the 8.3 format version of a filename.QuickInfo
  Windows NT: Requires version 3.1 or later.
  Windows: Requires Windows 95 or later.
  Windows CE: Requires version 1.0 or later.
  Header: Declared in winbase.h.
  Unicode: Defined as Unicode and ANSI structures.