Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

HILFE !!!! Für Profis recht einfach !
Autor: Heinz
Datum: 18.11.02 18:33
Mit dem folgendem Code, lese ich alle Ordner die sich auf "c:\" befinden aus. Nur, ich wil nicht die Ordner, sondern die Dateien die auf "c:\" liegen auslesen. Was muss ich verändern ? Bitte keine Verweise auf andere Programme,Tips, weil, es darf nicht mit einer API,FSO,DLL,OCX,......... gelöst werden! (Schulaufgabe!) Man muss glaube ich nicht viel verändern ?! Option Explicit Private Datei As String Private Pfad As String Private Sub Command1_Click() Pfad = "C:\" Datei = Dir(Pfad & "*.*", vbDirectory) Do Until Datei = "" If (GetAttr(Pfad & Datei) And vbDirectory) = vbDirectory Then List1.AddItem Datei Datei = Dir() Loop End Sub

HILFE !!!! Für Profis recht einfach !	84	Heinz	18.11.02 18:33
Re: HILFE !!!! Für Profis recht einfach !	237	unbekannt	18.11.02 18:37
Ein sehr kleines Problem nur noch ?!	44	Heinz	18.11.02 18:50
Re: Ein sehr kleines Problem nur noch ?!	237	unbekannt	18.11.02 18:55

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