replace date with currnt date-15 days dynamically in multiple files prsnt in folder

[shankar455]

I am completely newbee to Vb scripting .Kindly help me with the requirement where it is a *(star) delimited file has a multiple lines starts with RTG and 3rd column=TD8 I want to substring the date part and I want to replace with current date minus 15 days

file content
RTG*888*TD8*20180201~
TWW*888*RD8*20180201-20180201~
RTG*888*TD8*20180201-20180201~
KCG*888*TD8*20180201-20180201~
I want the output as below by changing date. Please help. I am looking for VB script to make it work for all files present in that directory

RTG*888*TD8*20190417~
TWW*888*RD8*20180201-20180201~
RTG*888*TD8*20190417-20190417~
KCG*888*TD8*20180201-20180201~

 

[xwb]

Have you read the file in and separated the fields? Show us what you have done so far. We can help you with your coding problems but we are not a code writing service.