Hallo Forum,
aus Beispielcode von Nepumuk habe ich mir einen Treeview gebastelt, der die oberste Reihe aller Ordner anzeigt. Beim Klicken auf einen Ordner öffnet sich die nächste Reihe Ordner usw.
Funktioniert alles schon mal sehr gut, jedoch ist mir aufgefallen, dass nicht alle Ordner angezeigt werden.
So werden z.B. Ordner mit dem Attribut Archiv oder versteckt, nicht im Treeview angezeigt.
Dies liegt an einem Abgleich der Folder Attribute vor der Erstellung als Knoten im Treeview.
Folgender Codeschnipsel stellt meiner Meinung nach das Problem dar:
If InStr(1, ",16,17,8208,8209,8240,8241,", "," & CStr(WFD.dwFileAttributes) & ",") 0 Then
Set neuNode = UserForm1.TreeView1.Nodes.Add(strFolderPath, tvwChild, strFolderPath & "\" & strDirName, strDirName, 1, 2)
End If
Da ich weder über die Recherche, noch über Try&Error zu einer Lösung gekommen bin, bitte ich euch um Hilfe.
Was muss verändert werden, damit alle Ordner, unabhängig Ihrer Attribute angezeigt werden?
Herzlichen Dank vorab,
Gruß Tobias