Søg-erstat i streng

Hej

Skulle tidligere bruge et simpelt script, men da jeg intet forstår af VBscript fik en flink fyr her på experten til at lave det.

Idéen er er bare, at jeg højreklikker på en fil og trykker, og så kører den en søgning på filnavnet. Her er scriptet:


Set shell = CreateObject("WScript.Shell")
arg = WScript.Arguments(0)
file = Right(arg, InStr(StrReverse(arg), "\")-1)
shell.Run "http://www.google.dk/search?hl=da&q=" & file


Jeg vil dog gerne kunne lave nogle erstatninger i filnavnet inden søgning, fx " " laves om til "%20" m.m.

Håber der er en der kan stille det op, så jeg bare kan smide de ting på, jeg gerne vil have erstattet.

På forhånd tak,
seekasr