Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1620to1624
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

zuletzt heruntergeladene Dateien anzeigen

zuletzt heruntergeladene Dateien anzeigen
11.05.2018 20:19:43
Sigi
Hallo zusammen,
ich habe folgendes Problem:
ich möchte in einer Listbox alle Dateinamen aus dem DownloadOrdner anzeigen, die in der letzten halben Stunde heruntergeladen wurde.
Ich habe irgendwie gar keine Ahnung wie ich da ansetzten soll.
Vielen Dank schonmal
Sigi

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: zuletzt heruntergeladene Dateien anzeigen
11.05.2018 20:43:15
Sepp
Hallo Sigi,
für eine Listbox auf einem UserForm, so:
Private Sub UserForm_Activate()
Dim strPath As String, strFile As String
Dim lngIndex As Long

Const cdblFileAge As Double = 1 / 48 'halbe Stunde 

strPath = Environ("USERPROFILE") & "\Downloads\"

strFile = Dir(strPath & "*", vbNormal)

Do While strFile <> ""
  If FileDateTime(strPath & strFile) >= (Now - cdblFileAge) Then ListBox1.AddItem strFile
  strFile = Dir
Loop
End Sub

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media

Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0


 ABCDEF
1Gruß Sepp
2
3

Anzeige
AW: zuletzt heruntergeladene Dateien anzeigen
11.05.2018 21:07:43
Sigi
Hallo Sepp,
vielen Dank für den Code, funktioniert einwandfrei.
Zum Verständnis: wie kommt die 1/48 für die halbe Stunde zustande?
Vielen Dank und Grüße
Sigi
AW: zuletzt heruntergeladene Dateien anzeigen
11.05.2018 21:10:42
Sepp
Hallo Sigi,
eine Stunde ist 1/24 eines Tages, eine halbe Stunde eben 1/48.
 ABCDEF
1Gruß Sepp
2
3

Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige