Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Einfügen in Listview
Autor: Redo
Datum: 29.05.02 10:43
Hallo zusammen , :ich habe ein ComboBox und ein Listview.Beim Auswählen eines Eintrag im ComboBox werden die Name der Ordner, die sich in App.path in der ersten Listviewspalte, eingefügt; in der zweiten Spalte werden die jeweiligen Erstelldatums eingefügt. Wo ich noch probleme habe ist die 3 Listviewspalte und zwar soll da eine Zeile von einer Inidatei eingefügt werden .Jedes Ordner in App.path enthält eine Inidatei von der die 2 Zeile in der 3 Listview Spalte eingefügt werden soll und hier ist der Code dabei ist txt_ReadLine(cFile, 2) eine Funktion die die 2 Zeile von Cfile datei zurückgibt.was ist daran falsch. Für jede Hilfe bin ich sehr Dankbar. Private Sub Combo1_Click() Dim Pfad1, Name1 As String Pfad1 = App.Path & "\" ' Pfad setzen. Name1 = Dir(Pfad1, vbDirectory) ' Ersten Eintrag abrufen. Dim Li As ListItem ListView1.ListItems.Clear Do While Name1 <> "" ' Schleife beginnen. ' Aktuelles und übergeordnetes Verzeichnis ignorieren. If Name1 <> "." And Name1 <> ".." Then ' Mit bit-weisem Vergleich sicherstellen, daß Name1 ein ' Verzeichnis ist. If (GetAttr(Pfad1 & Name1) And vbDirectory) = vbDirectory Then Set Li = ListView1.ListItems.Add(, , "") Li.Text = Name1 Dim fs As Object, F As Object Dim s As String Set fs = CreateObject("Scripting.FileSystemObject") Set F = fs.GetFolder(App.Path & "\" & Name1) s = F.DateCreated Li.SubItems(1) = s Dim cFile, s1, s2 As String 'Ab hier ist das Problem s1 = App.Path & "\" & Name1 & "*.ini" cFile = Dir(s1) ' Alle Textdateien im Verzeichnis ausgeben Do While cFile <> "" ' Wiederholen bis cFile="" cFile = Dir Loop s2 = txt_ReadLine(cFile, 2) Li.SubItems(2) = s2 Set Li = Nothing End If End If Name1 = Dir ' Nächsten Eintrag abrufen. Loop End Sub Gruß redo

Einfügen in Listview	52	Redo	29.05.02 10:43
Hat sich erledigt	38	Redo	29.05.02 13:35

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