Delete all files when date arrives

[gicimi]

Hello,


files with the extension on the specified date need automatic deletion.

[FONT=&quot].csv.pdf.xla.xlam.xls.xls.xlsb.xlsm.xlsx[/FONT][FONT=&quot]

[/FONT]can you help me?
****** id="cke_pastebin" style="position: absolute; top: 72px; width: 1px; height: 1px; overflow: hidden; left: -1000px;">can you help me</body>

 

[Yongle]

Welcome to the forum - your explanation is very short - is this what you want ?

You cannot undo this - so be very careful

If the date today is after 25 August delete all files in folder C:\Folder\SubFolder with extensions .csv .pdf .xla .xlam .xls .xls .xlsb .xlsm .xlsx

Sub DeleteFiles()
    Dim Ext As Variant
    If Date [COLOR=#006400]>[/COLOR] CDate("[COLOR=#006400]25 August 2019[/COLOR]") Then
        For Each Ext In Split("[COLOR=#0000cd].csv .pdf .xla .xlam .xls .xls .xlsb .xlsm .xlsx[/COLOR]")
            On Error Resume Next
            Kill "[COLOR=#ff0000]C:\Folder\SubFolder\*[/COLOR]" & Ext
            On Error GoTo 0
        Next
    End If
End Sub

 

[James006]

Hello,

It is not such much their extensions ... but their respective locations you will have to monitor in order to run your macro ...:wink:

 

[Fluff]

@gicimi
Please do not post the same question multiple times. All clarifications, follow-ups, and bumps should be posted back to the original thread.
Per forum rules, posts of a duplicate nature will be locked or deleted (rule 12 here: Forum Rules).

I have merged both your threads

 

[gicimi]

@Youngle;

Thank you so much.

 

[gicimi]

@Fluff

I am a new participant. don't know the rules sorry