Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

List
Autor: Hans
Datum: 08.09.01 18:43
Function ListOrdner(ordner) Dim n n = -1 Set fs = CreateObject("Scripting.FileSystemObject") If fs.FolderExists(ordner) Then Set ordner = fs.GetFolder(ordner) For Each unterordner In ordner.subfolders n = n + 1 lstvorhanden.List(n) = unterordner.Name Next End If End Function Wie kann ich diese Function so umschreiben das ich kein filesystemobject mehr brauche?

List	530	Hans	08.09.01 18:43
Re: List	882	Dieter	08.09.01 18:49
Re: List	599	Nathaloon	18.01.04 16:51

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