Datum-Dateieigenschaften in Listbox einlesen

Sub test2() 'Für Änderungsdatum Dim LResult As Date LResult = Format(FileDateTime("C:\Users\Bremke\Desktop\JEX\jex.bmp"), "dd.mm.yy") Load UserForm1 With UserForm1 .ListBox2.AddItem (LResult) .Show End With End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub CommandButton1_Click() Dim AppShell As Object Dim BrowseDir As Variant Dim Pfad As String, i As Long, datei As String Set AppShell = CreateObject("Shell.Application") Set BrowseDir = AppShell.BrowseForFolder(0, "Ordner auswählen", &H1000, 17) If Not BrowseDir Is Nothing Then Pfad = BrowseDir.Self.Path i = 0 With ListBox1 .ColumnCount = 2 .Clear datei = Dir(Pfad & "\*.jpg", vbNormal) Do While datei "" .AddItem datei .List(i, 1) = Format(FileDateTime(Pfad & "\" & datei), "dd.mm.yyyy") i = i + 1 datei = Dir Loop End With End If End Sub

Hallo Anton,
danke für den Denkanstoß:
So hab ich das jetzt mal eingebaut:

Sub ANPR_Laden()
'Private Sub Laden_Click()
Dim AppShell As Object
Dim BrowseDir As Variant
Dim Pfad As String, i As Long, datei As String
Set AppShell = CreateObject("Shell.Application")
Set BrowseDir = AppShell.BrowseForFolder(0, "ANPR Ordner auswählen", &H1000, "C:\Program  _
Files (x86)\ISS\ANPR\JEX")
If Not BrowseDir Is Nothing Then
Pfad = BrowseDir.Self.Path
i = 0
UserForm1.Show
With UserForm1.ListBox2
.ColumnCount = 2
.Clear
datei = Dir(Pfad & "\*.jpg", vbNormal)
Do While datei  ""
.AddItem datei
.List(i, 1) = Format(FileDateTime(Pfad & "\" & datei), "dd.mm.yyyy")
i = i + 1
datei = Dir
Loop
End With
End If
End Sub

Das einzige, was ich jetzt noch gerne möchte, ist die Jpg-Dateinamen bis zum ersten Leerzeichen anzuzeigen und den Rest abzuschneiden.
Ich hatte das mal für eine einspaltige Listbox hinbekommen, vielleicht kannst Du (Ihr) dabei noch helfen, das auch in der 2 spaltigen Listbox gangbar zu machen?

    With UserForm1
Path = BrowseFolder
FileName = Dir(Path & "\*.jpg", vbNormal)
Do Until FileName = ""
FileName = Left(FileName, InStr(FileName, " ") - 1)
.ListBox1.AddItem (FileName)
FileName = Dir()
Loop
.Show
End With

Danke schon mal!
Gruß Till

i = 0 With UserForm1.ListBox2 .ColumnCount = 2 .Clear datei = Dir(Pfad & "\*.jpg", vbNormal) Do While datei "" .AddItem Left(datei, InStr(datei, " ") - 1) .List(i, 1) = Format(FileDateTime(Pfad & "\" & datei), "dd.mm.yyyy") i = i + 1 datei = Dir Loop End With

Beliebteste Forumthreads (12 Monate)

Datum-Dateieigenschaften in Listbox einlesen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Datum-Dateieigenschaften in Listbox einlesen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread