Le portail francophone de la géomatique

Oui, il faut utiliser les API FindFirstFile et FindNextFile

Voici un exemple de code:

-------

Define MAX_PATH 260
Define INVALID_HANDLE_VALUE -1

Type FILETIME
dwLowDateTime As Integer
dwHighDateTime As Integer
End Type

Type WIN32_FIND_DATA
dwFileAttributes As Integer
ftCreationTime As FILETIME
ftLastAccessTime As FILETIME
ftLastWriteTime As FILETIME
nFileSizeHigh As Integer
nFileSizeLow As Integer
dwReserved0 As Integer
dwReserved1 As Integer
cFileName As String * MAX_PATH
cAlternate As String * 14
End Type

Declare Function FindFirstFile Lib kernel32 Alias FindFirstFileA (ByVal
lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Integer
Declare Function FindNextFile Lib kernel32 Alias FindNextFileA (ByVal
hFindFile As Integer, lpFindFileData As WIN32_FIND_DATA) As Integer

Sub get_FilesFromDirectory(filelist() As WIN32_FIND_DATA, ByVal spath As String)
Dim Found As WIN32_FIND_DATA
Dim Retval, hFile As Integer
Dim i As Integer

hFile = FindFirstFile(spath, Found)
If hFile = INVALID_HANDLE_VALUE Then ' Print Ce chemin ne contient ni dossiers ni fichiers.
Exit Sub
End If

i=0
Do
Do Case Found.dwFileAttributes

' Dossier
Case 16
If Found.cFileName
...
End Case
Loop