Datei suchen und nur Datinamen der neusten kopieren

@echo off & setlocal
echo.>%temp%\whatever.xyz
for /d %%A in (D:\Backup\*_EXT) do for /f "tokens=1,2,3 delims=. " %%I in ('echo %%~tA') do echo %%K\%%J\%%I %%A >>%temp%\whatever.xyz  
sort %temp%\whatever.xyz

Dim Suchmaske As String, Ext As String, SuchLen As Integer
Dim Zuletzt As Date, Erg As String
Dim fso As Object
Dim Ordner As Object, Datei As Object, Dateien As Object, Unter As Object

Sub Suchen()
Ext = "txt" 'Typ der zu suchenden Datei  
Roots = Array("W:\", "X:\") 'Ordner für Beginn der Suche auf den jeweiligen Laufwerken  
'Eingabe Suchmaske  
Suchmaske = InputBox("Bitte Anfang des Dateinamens als Suchmaske angeben!", "Suchmaske")  

'Hilfsvariable  
Suchmaske = LCase(Suchmaske)
SuchLen = Len(Suchmaske)
Ext = LCase(Ext)

Set fso = CreateObject("Scripting.FileSystemObject")  

Zuletzt = 0 'Initialisierung Zwischenspeicher für jüngstes Dateidatum  
Erg = ""  

For Each Root In Roots
    Set Ordner = fso.GetFolder(Root) 'Start der Suche mit dem jeweiligem Startordner je Laufwerk  
    SearchInFolder Ordner
Next

If Erg <> "" Then  
    'Voller Pfad der jüngsten passenden Datei steht in Erg  
    Workbooks.Open (Erg)
Else '... oder auch nicht.  
    MsgBox "Keine zur Suchmaske " & Chr(34) & Suchmaske & "*." & Ext & Chr(34) & _  
        " passende Datei gefunden!", vbCritical, "Datei nicht gefunden!"  
End If
End Sub

Sub SearchInFolder(Ordner)
Set Dateien = Ordner.Files
' Alle Dateien in diesem Ordner abklappern  
For Each Datei In Dateien
    'Dateityp prüfen  
    If LCase(fso.GetExtensionName(Datei.Name)) = Ext Then
        'Beginnt Dateiname mit Suchmaske?  
        If LCase(Left(Datei.Name, SuchLen)) = Suchmaske Then
            'Änderungsdatum vergleichen ...  
            If Datei.DateLastModified > Zuletzt Then
                '... und wenn neuer, speichern;  
                Zuletzt = Datei.DateLastModified
                Erg = Datei.Path 'Dateipfad natürlich auch ;-)  
            End If
        End If
    End If
Next

'Unterordner abklappern, SearchInFolder rekursiv aufrufen  
For Each Unter In Ordner.SubFolders
    SearchInFolder Unter
Next
End Sub

Dim Suchmaske As String, Ext As String, SuchLen As Integer
Dim Zuletzt As Date, Erg As String
Dim fso As Object
Dim Ordner As Object, UO As Object, As Object, Unter As Object

Sub SuchenOrdner()

Roots = Array("W:\", "X:\") 'Ordner für Beginn der Suche auf den jeweiligen Laufwerken  
'Eingabe Suchmaske  
Suchmaske = InputBox("Bitte Anfang des Ordnernamens angeben!", "Suchmaske")  

'Hilfsvariable  
Suchmaske = LCase(Suchmaske)
SuchLen = Len(Suchmaske)

Set fso = CreateObject("Scripting.FileSystemObject")  

Zuletzt = 0
Erg = ""  

For Each Root In Roots
    Set Ordner = fso.GetFolder(Root) 'Start der Suche  
    SearchInFolder Ordner
Next

If Erg <> "" Then  
    'Voller Pfad der jüngsten passenden Ordners steht in Erg  
    Worksheets("Tabelle1").Range("A1").Value = Erg  
Else '... oder auch nicht.  
    MsgBox "Keinen zur Suchmaske " & Chr(34) & Suchmaske & "*.*" & Chr(34) & _  
        " passenden Ordner gefunden!", vbCritical, "Ordner nicht gefunden!"  
End If

End Sub

Sub SearchInFolder(Ordner)
' Alle Unterordner überprüfen  
For Each UO In Ordner.SubFolders
    'Beginnt Ordnername mit Suchmaske?  
    If LCase(Left(UO.Name, SuchLen)) = Suchmaske Then
        'Änderungsdatum vergleichen ...  
        If UO.DateLastModified > Zuletzt Then
            '... und wenn neuer, speichern;  
            Zuletzt = UO.DateLastModified
            'Ordnerpfad natürlich auch  
            Erg = UO.Path
        End If
    End If
Next

'Unterordner abklappern, SearchInFolder rekursiv aufrufen  
For Each Unter In Ordner.SubFolders
    SearchInFolder Unter
Next
End Sub

@echo off & setlocal
set "Start=W:\m1 W:\m2 W:\m3 W:\m4 X:\m1"  
set "Neueste=C:\Neueste.txt"  

set "List=%temp%\whatever.xyz"  
set /p "Maske=Bitte Suchmaske eingeben: "  
echo.
echo.
if exist "%List%" del "%List%"  
if exist "%Neueste%" del "%Neueste%"  
for %%S in (%Start%) do for /f "delims=" %%A in ('dir /b /ad "%%S\%Maske%*.*" 2^>nul') do echo %%~nA$%%~fA >>"%List%"  
set Neu=
if exist "%List%" (  
	for /f "tokens=2 delims=$" %%N in ('sort "%List%"') do set "Neu=%%N"  
	del "%List%"  
)
if defined Neu (
	echo %Neu%
	echo %Neu% >"%Neueste%"  
	) else (
	echo [%Maske%] nicht gefunden!
	echo.
	pause
)

...
@echo off & setlocal EnableDelayedExpansion
set "Start=W:\m1\# W:\m2\# W:\m3\# W:\m4\# X:\m1\#"  
....
for /f "delims=" %%A in ('dir /b /ad "!Start:#=%Maske%*.*" 2^>nul') do echo %%~nA§%%~fA >>"%List%"  
...
...