This will delete all files in the last nested folder with extension txt. Plain and simple.
Const DeleteReadOnly = TRUE 'or FALSE, if you like
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile("C:\folder\folder\...\folder\*.txt"), DeleteReadOnly