Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Nochmal kurz zu den Ordnern
Autor: Boris Huemer
Datum: 16.04.02 14:02
Also. das mit dem ausgeben der größe funzt ganz toll! Die ordner werden auch korrekt in die Listboxen verteilt. ein problem habe ich jetzt allerdings noch: es sind ca. 250 ordner, dH ich möchte nicht für jeden Ordner den Codeteil schreiben müssen! das ganze sieht jetzt so aus: ------------------------------------------------------------------------------ Private Sub Form_Load() Dim maxsize As Double maxsize = 20000000 'Einzelne Transferordner überprüfen, und der Liste zuordnen Dim FSO As New Scripting.FileSystemObject Dim Folder As Scripting.Folder Set Folder = FSO.GetFolder("m: ransferAngerbauer_S") 'Entscheiden in welche Liste der Ordner geschrieben wird If Folder.Size < maxsize Then file_ok.AddItem "m: ransferAngerbauer_S" Else file_fail.AddItem "m: ransferAngerbauer_S" End If End Sub ----------------------------------------------------------------------------------- man müsste also jetzt den pfad ("M: ransfer.......") durch eine variable ersetzen, und das ganze so lange wiederholen, biss alle ordner im verzeichnis M:Transfer durchlaufen sind. Wie stell ich das am besten an??? fg boris

Nochmal kurz zu den Ordnern	80	Boris Huemer	16.04.02 14:02
Tipps & Tricks	265	Dieter	16.04.02 14:38
Re: Tipps & Tricks	64	Boris Huemer	16.04.02 14:42
Ein schnelles Beispiel	325	Dieter	16.04.02 15:53

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