Simpelt script/program til at ændre filnavne

Hej,

jeg søger efter en kode til et simpelt program (VB) eller script (VBScript eller BATCH) som kan køre gennem en mappe med filer og ændre filnavne.

Jeg har mange forskellige filnavne, men de skal alle ende med det samme. så hvis jeg har:

d234.jpg
d234.jgw
d264.jpg
d264.jgw
osv.

skal de hedde fx:
d234-2002-20.jpg
d234-2002-20.jgw
d264-2002-20.jpg
d264-2002-20.jgw
osv.

.. det skal dog være muligt at bestemme selv hvad teksten skal være, siden teksten kan variere mellem xxxx-2000/2002/2003/2004-10-20-50-60.xxx

Derfor tænkte jeg at lave et simpelt program i VB med en textbox og en knap som man selv kan bestemme teksten. Er der nogen der kan hjælpe mig med dette? Har lidt problemer med at loope igennem alle filer i en mappe vha VB6..

På forhånd tak,

// jih