Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Problem
Autor: Redo
Datum: 28.05.02 12:02
Hallo zusammen Also im Verzeichnis (App.path)bei mir (G:my_Projekt/kalibration) befinden sich Ordner ,deren Namen ich in einer ListBox anzeigen will,ich habe das hier eingegeben aber dann bekomme ich den Fehleratei nicht gefunden hier ist der Code: Private Sub Combo1_Click() Dim Pfad1, Name1 As String Pfad1 = App.Path ' Pfad setzen. Name1 = Dir(Pfad1, vbDirectory) Do While Name1 <> "" If Name1 <> "." And Name1 <> ".." Then If (GetAttr(Pfad1 & Name1) And vbDirectory) = vbDirectory Then List1.additem Name1 End If End If Name1 = Dir ' Nächsten Eintrag abrufen. Loop End Sub Wie bekomme ich es hin das nur die Ordnernamen ermittelt werden ,die sich im Verzeichnis App.path befinden Gruß redo

Unterordner ermitteln	65	Redo	28.05.02 09:20
Re: Unterordner ermitteln	232	Moni	28.05.02 09:35
Danke für den Tip	48	Redo	28.05.02 10:57
Problem	50	Redo	28.05.02 12:02
Danke :hat sich erledigt	46	Redo	28.05.02 12:05

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