Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Ordnergröße auslesen
Autor: Boris Huemer
Datum: 16.04.02 14:32
Hi Leute! In meinem Prog werden ordnergrößen ausgelesen, und auf 2 listen verteilt. alle die größer sind als 20MB kommen in die List_fail. alle die kleiner sind, in die List_OK. Bis jetzt aber nur der eine "Angerbauer_S" ! Es sind ca. 250 Ordner, dH ich möchte nicht gerade diesen Codeteil 250 schreiben! Gibt es da eine möglichkeit, alle Ordner in "M:Transfer\" nacheinander mit diesem code zu durchlaufen??? 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??? Der Letzte Ordner im Verzeichnis M:Transfer heisst "Windischofer_F" (wenn das hilfreich ist) bin für alle vorschläge dankbar! (bitte kein allzu kompliziertes Fach-Chinesisch, da ich mich nicht so gut auskenne *g*) fg boris

Ordnergröße auslesen	49	Boris Huemer	16.04.02 14:32
Tipps & Tricks!	210	Dieter	16.04.02 14:38

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