set shell=createobject("shell.application")
set folder=shell. namespace(replace(wscript.scriptfullname,wscript.scriptname,""))
set filecollection=folder. items(). filter(&h40)
for each file in filecollection
n=file. name
file. name=mid(n,instrrev(n,"_"))
next