Thema Datum  Von Nutzer Rating
Antwort
17.02.2020 18:23:30 Gast12519
NotSolved
Blau eine weitere variante
 17.02.2020 21:07:04 Mase
Solved
17.02.2020 22:49:37 Gast42001
NotSolved
18.02.2020 06:17:11 Gast27396
NotSolved

Ansicht des Beitrags:
Von:
Mase		 Datum:
17.02.2020 21:07:04		 Views:
521		 Rating:
     
Antwort:
 Nein
Thema:
eine weitere variante

Hi,

versuche mal:


Option Explicit

Sub LetzteModDatei()
    Dim fso As Object
    Dim fil As Object
    Dim dtArr() As Variant
    Dim vFilename() As Variant
    Dim i As Long, iIndex As Long
    Dim sPfad As String
    '
    sPfad = "c:\Test\" '<--anzupassen
    '
    Set fso = CreateObject(class:="Scripting.FileSystemobject")
    ReDim dtArr(fso.GetFolder(sPfad).Files.Count - 1)
    ReDim vFilename(fso.GetFolder(sPfad).Files.Count - 1)
    
    
    For Each fil In fso.GetFolder(sPfad).Files
        vFilename(i) = fil.Path
        dtArr(i) = CDbl(fil.DateLastModified)
        i = i + 1
    Next
    '
    iIndex = Application.Match(Application.WorksheetFunction.Max(dtArr), dtArr(), 0) - 1
    MsgBox CDate(Application.WorksheetFunction.Max(dtArr)) & vbNewLine & vFilename(iIndex), vbInformation, "Zuletzt geändertes File:"
End Sub

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
17.02.2020 18:23:30 Gast12519
NotSolved
Blau eine weitere variante
 17.02.2020 21:07:04 Mase
Solved
17.02.2020 22:49:37 Gast42001
NotSolved
18.02.2020 06:17:11 Gast27396
NotSolved