Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Code vereinfachen
Autor: michi-bib
Datum: 22.07.02 16:34
Hallo Boris, so sollte es eigentlich gehen, wenn in der KomboBox die kompletten Pfade stehen: Private Sub Command1_Click() Call fill End Sub Public Sub fill() Dim fso As New Scripting.FileSystemObject Dim Folder As Scripting.Folder Dim i As Long Dim s As String For i = 0 To cbox_alle.Count - 1 s = cbox_alle.List(i) Set Folder = fso.GetFolder(s) If Folder.Size < maxsize Then file_ok.AddItem s Else file_fail.AddItem s End If Set Folder = Nothing Next i Set fso = Nothing End Sub

Code vereinfachen	78	Boris	22.07.02 15:19
Keiner eine Idee ??? (ot)	30	Boris	22.07.02 15:45
Re: Code vereinfachen	42	michi-bib	22.07.02 16:34
Ja! Endlich funzt das! Vielen Vielen Danke !!! ;o)))))	34	Boris	23.07.02 08: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