Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

TreeView
Autor: MadKombat
Datum: 19.11.02 17:55
Ich habe ein Problem mit folgender Funktion: dem User (i) soll ein bis unendlich viele Projekte zugewiesen werden. Die Projekte befinden sich in Ordnern. Die Ordner tragen die Usernamen, die Projekte sind Textdateien mit dem Projektnamen als Titel. Das Problem ist, dass zwar alle User in dem TreeView korrekt aufgeführt werden, allerdings sind die Projekte nicht richtig zugeordnet. Wer kann mir hierbei helfen? Function getuser(path) 'User werden in den Tree eingetragen Set fso = CreateObject("Scripting.FileSystemObject") Set folder = fso.GetFolder(App.path + "/files/") Set subfolder = folder.SubFolders i = 0 For Each f1 In subfolder 'Erkennung der Benutzer folder = (App.path + "\files\") user = user & f1.Name Form1.TreeView1.Nodes.Add , , , (user) 'User wird in in TreeView eigetragen folder = folder + user + "\" Set fi = fso.GetFolder(folder) Set fc = fi.Files i = i + 1 For Each f2 In fc 'Erkennung der Projekte für den Benutzer project = "" project = project & f2.Name Form1.TreeView1.Nodes.Add i, tvwChild, , (project) 'Projekte werden in 'TreeView eingetragen 'abhängig vom Benutzer (i) Next user = "" Next End Function Danke an alle, die sich hieran versuchen. madKombat

TreeView	400	MadKombat	19.11.02 17:55
Re: TreeView	248	Dieter	19.11.02 21:11
Re: TreeView	206	MadKombat	20.11.02 09:00

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen