|guapo: You'll get a better answer & a lot faster.|
Hey now, if he posted in the Programming forum, as he should have, he would have gotten his answer, wouldn't he?
He's just lucky I saw this post.
Const oldDir = "\\Lan01\Execution"
Const newDir = "\\$DATA\FY2009_2010\All_Projects"
Const shortcutDir = "C:\Bin"
Set shell = CreateObject("Shell.Application")
For Each f In shell.NameSpace(shortcutDir).Items
If f.IsLink Then
Set link = f.GetLink
link.Path = Replace(link.Path, oldDir, newDir, 1, -1, 1)