Hallo ihrs,
ich habe da ein Problem:
Kann man in VisualBasic auf möglichst einfache Art, Dateien in einem geöffneten Ordner nach Datum sortieren?
So, dass eben Dateien die vom selben Tag stammen, auch untereinander stehen, egal wie sie heißen?
mfg, RSNemo
Hallo,
Kann man in VisualBasic auf möglichst einfache Art, Dateien in
einem geöffneten Ordner nach Datum sortieren?
So, dass eben Dateien die vom selben Tag stammen, auch
untereinander stehen, egal wie sie heißen?
ja, klar. Nimm einen Button, eine Filelistbox (unsichtbar) und eine Listbox dazu, stelle deren Eigenschaft .sorted auf True und …
Option Explicit
Private Sub Command1\_Click()
Dim i As Long
Dim ja As String
Dim mo As String
Dim ta As String
For i = 0 To File1.ListCount - 1
ja = Right("0000" + Trim(Str(Year(FileDateTime(File1.List(i))))), 4)
mo = Right("00" + Trim(Str(Month(FileDateTime(File1.List(i))))), 2)
ta = Right("00" + Trim(Str(Day(FileDateTime(File1.List(i))))), 2)
List1.AddItem ja + mo + ta + " " + File1.List(i)
Next
End Sub
Du kannst die Strings auch in ein Array schreiben, mit Quicksort sortieren und ohne das Datum in eine unsortierte TistBox schreiben …
Das geht mit VB alles sehr leicht.
Gruß, Rainer
Hallo, Rainer
schönen Dank, für diese umfassende und kompetente Auskunft!
Werd´s gleich mal ausprobieren.
Gruß, Rainer 
RSNemo