Jag hittade en kodsnut som borde vara vad jag har sökt.
Problem jag får ett (2)error.
<code>
Dim fso As New FileSystemObject
Dim rootFolder As Folder, currentFolder As Folder, subFolder As Folder
Dim parentName As String

Set rootFolder = fso.GetFolder(folderName)
If Not rootFolder.IsRootFolder Then
parentName = rootFolder.ParentFolder
If Len(parentName) > 3 Then
' tvwFileSystem.Nodes.Add parentName, tvwChild, rootFolder, rootFolder.Name, "closed" '<--HÄR FÅR JAG FEL
Else
tvwFileSystem.Nodes.Add , tvwNext, rootFolder, rootFolder.Name, "closed"
End If
End If

For Each currentFolder In rootFolder.SubFolders
' tvwFileSystem.Nodes.Add CStr(rootFolder), tvwChild, currentFolder, currentFolder.Name, "closed" '<--HÄR FÅR JAG FEL
For Each subFolder In currentFolder.SubFolders
addFolder subFolder.Path
Next subFolder
Next currentFolder
End Sub
</code>
Någon som kan se felet?

Det hjälper om du berättar vilket felmeddelande du fått.
Mern jag antar att det beror på att du inte har associerat en Image List till din treeview eller att du inte anget namn för bilderna i den imagelist.

Berätta vad du vill göra så är det lättare att hjälpa dig.

Tack Andreas.
Fel av mig att inte ta med error men jag har löst detta nu via file-listbox och dir1-listbox.