title image


Smiley Schnellschuss , hoffe da ist kein Fehler drin ..


Option Explicit



Private Const PFAD = "d:\"



' es wird eine Listbox auf der Form benötigt

' habe das in 2 Läufen gemacht .. geht schneller, geht aber bestimmt auch einfacher



Private Sub UserForm_Initialize()

Dim Fs, Fld, Fl

Dim fd$(), i&, dt As Date, it&

    Set Fs = CreateObject("Scripting.Filesystemobject")

    Set Fld = Fs.GetFolder(PFAD)

    ' Files einlesen

    ReDim fd(Fld.Files.Count - 1, 1)

    For Each Fl In Fld.Files

       fd(i, 0) = Fl.Path

       fd(i, 1) = Fl.DateLastModified

       i = i + 1

    Next

    Set Fs = Nothing

    Do While ListBox1.ListCount - 1 < UBound(fd, 1)

        dt = Now

        For i = 0 To UBound(fd, 1)

            If fd(i, 1) < dt Then _

                it = i: dt = fd(i, 1)

        Next i

        ListBox1.AddItem fd(it, 1) & "   " & fd(it, 0)

        fd(it, 1) = Now

    Loop

    Erase fd

End Sub

 Code eingefügt mit Syntaxhighlighter 1.16

Knofi So wie wir heute arbeiten, werden morgen die Beamten leben ...

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: