Option Explicit
 
<font color=green>' zunächst die benötigten API-Deklarationen</font>
Private Type TPictDesc
  cbSizeofStruct As Long
  PicType As Long
  hImage As Long
  xExt As Long
  yExt As Long
End Type
 
Private Type TGUID
  Data1 As Long
  Data2 As Integer
  Data3 As Integer
  Data4(0 To 7) As Byte
End Type
 
Private Declare Function ExtractAssociatedIcon Lib _
  "shell32.dll" Alias "ExtractAssociatedIconA" _
  (ByVal hInst As Long, ByVal lpIconPath As String, _
  lpiIcon As Long) As Long
 
Private Declare Function OleCreatePictureIndirect Lib _
  "olepro32.dll" (ByRef lpPictDesc As TPictDesc, _
  ByRef RIID As TGUID, ByVal fPictureOwnsHandle As Long, _
  ByRef IPic As IPicture) As Long

<font color=green>' ImageList dem ListView zuordnen</font>
Set ListView1.LargeIcons = ImageList1
Set ListView1.SmallIcons = ImageList1
 
<font color=green>' alle Dateien eines Ordner ermitteln und in einem
' ListView-Control (á la Explorer) darstellen</font>
Dim sPath As String
Dim FSO As Object
Dim Folder As Object
Dim x As Integer
Dim itemX As ListItem
Dim Ordner As Object
Dim Datei As Object
 
sPath = "d:	emp"
If Right$(sPath, 1) <> "\" Then sPath = sPath & "\"
 
<font color=green>' FSO initialisieren</font>
'Set FSO = New FileSystemObject
Set FSO = CreateObject("Scripting.FileSystemObject")
 
<font color=green>' Startordner</font>
Set Folder = FSO.GetFolder(sPath)
 
<font color=green>' zunächst alle SubFolders ermitteln</font>
With ListView1.ListItems
  For Each Ordner In Folder.SubFolders
    Set itemX = .Add(, , Ordner.Name, , 1)
  Next
End With
 
<font color=green>' jetzt alle Dateien des Ordners ermitteln und
' das entsprechende ICON ermitteln (und anzeigen)</font>
With ListView1.ListItems
  For Each Datei In Folder.Files
    <font color=green>' Icon der Datei ermitteln</font>
    AddIconToImageList ImageList1, _
      sPath & Datei.Name, 0
    Set itemX = .Add(, , Datei.Name, , ImageList1.ListImages.Count)
  Next
End With