VBA Excel Ordner auslesen und Dateien entfernen

forfiles.exe /P "D:\Test" /S /M *.pdf /D -30 /C "cmd /c del /q @path"

Option Explicit
Sub Delete_Old()
Dim A
Dim Dir_Path As String
Dir_Path = "D:\Alstom\Patrick\Travail"
Dim Masq_File, DIR_Result
Dim MyMONTH As String
'------------ LOOK IF ROOT  DIRECTORY  EXISTS
    Masq_File = Dir_Path & "\" & "*.*"
    DIR_Result = Dir(Masq_File, vbNormal)        '  Init  Dir_Result,  We  start  with only files
    While (DIR_Result <> "")
'------------   FILES EXIST   -----------------
        MyMONTH = Mid(DIR_Result, 15, 2) * 1
        A = Month(Date) - 1
        If (MyMONTH = Month(Date) - 1) Then
            Kill Dir_Path & "\" & DIR_Result        '   TO  REMOVE  the  FILE
        End If
        DIR_Result = Dir
    Wend
End Sub

Sub Prüfung(StartFolder As String, Pattern As String, _
    DoSubfolders As Boolean, ByRef colFiles As Collection)

    Dim f As String, DateiDatum As Date, DateiDatumVorher As String, sf As String, subF As New Collection, s
    Dim DateiPfad As String, Datum As Date
    
    If Right(StartFolder, 1) <> "\" Then StartFolder = StartFolder & "\"

    Datum = DateAdd("m", -1, Date)

    f = Dir(StartFolder & Pattern)
    Do While Len(f) > 0
        colFiles.Add StartFolder & f
        f = Dir()
        DateiPfad = StartFolder & f
        If Len(f) > 0 Then
            DateiDatumVorher = Left(f, Len(f) - 4)
            DateiDatum = Mid(DateiDatumVorher, Len(DateiDatumVorher) - 9, Len(DateiDatumVorher))
                If DateiDatum < Datum Then
                    Kill DateiPfad
                End If
        End If
    Loop


End Sub

Sub PrüfungAktualität()

    Dim Pfad As String
    Dim colFiles As Collection
    Pfad = "U:\Test\"

    Set colFiles = New Collection
    Prüfung Pfad, "*.PDF", True, colFiles


End Sub