VB6 用API 函数列出指定文件夹中的所有文件

最新推荐文章于 2024-07-16 14:53:02 发布

SESS_隼

最新推荐文章于 2024-07-16 14:53:02 发布

阅读量3.1k

点赞数 5

分类专栏： VB6.0

本文链接：https://blog.csdn.net/tsien_sun/article/details/60661564

版权

VB6.0 专栏收录该内容

4 篇文章 0 订阅

订阅专栏

Private Const MAX_PATH = 260
Private Const FILE_ATTRIBUTE_DIRECTORY = &H10
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 * MAX_PATH
cAlternate As String * 14
End Type
Private Declare Function SetCurrentDirectory Lib "kernel32" Alias "SetCurrentDirectoryA" (ByVal lpPathName As String) As Long
Private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long
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

Public Function All_Files(Dir As String, List() As String) As Boolean
If SetCurrentDirectory(Dir) Then
Dim Yes As Boolean
Dim hFindFile As Long
Dim F As WIN32_FIND_DATA, ClearF As WIN32_FIND_DATA
Dim FileCount As Integer: FileCount = 0
ReDim List(1 To 1) As String
If Right(Dir, 1) <> "\" Then Dir = Dir & "\"
hFindFile = FindFirstFile(Dir & "*.*", F)
If hFindFile > 0 Then
Do
If F.dwFileAttributes <> FILE_ATTRIBUTE_DIRECTORY Then
FileCount = FileCount + 1
ReDim Preserve List(1 To FileCount) As String
List(FileCount) = Dir & F.cFileName
All_Files = True
End If
F = ClearF
Yes = FindNextFile(hFindFile, F)
Loop While Yes
Else
All_Files = False
End If
FindClose hFindFile
Else
All_Files = False
End If
End Function

Private Sub Command1_Click()
Dim List() As String
If All_Files("C:\Files\", List) Then
For i = 1 To UBound(List)
Debug.Print List(i)
Next
End If
End Sub