and, the code.
I don't know do I have enough will to post this in UDF library but here it is:
code:
function Link($LinkDest, optional $workdir, optional $description, optional $saveas)
dim $Shell,$LinkDestFolderItems,$item,$verb,$new,$Shortcut
$Shell=createobject("Shell.application")
$LinkDest=$Shell.namespace($LinkDest).self

for each $item in $LinkDest.parent.items
 if $item.islink $LinkDestFolderItems=$LinkDestFolderItems+$item.modifydate+chr(10) endif
next

for each $verb in $LinkDest.verbs
 if instr(join(split($verb,"&"),""),readvalue("HKEY_CLASSES_ROOT\lnkfile",""))
  $LinkDest.invokeverb(""+$verb)
 endif
next

for each $item in $LinkDest.parent.items
 if $item.islink
  $new=1
  for each $itemBefore in split(left($LinkDestFolderItems,len($LinkDestFolderItems)-1),chr(10))
   if $itemBefore=$item.modifydate $new=0 endif
  next
  if $new
   $Shortcut=$item.getlink
   del $item.path
  endif
 endif
next
if not vartype($Shortcut) exit 4 endif
$Shortcut.description=""+$description
$Shortcut.workingdirectory=""+$workdir
$Shortcut.save(""+$saveas)
endfunction
you call it like:
link("c:\targetOFtheShortcut","Workindirectorysetting for the shortcut","description, what ever","fully qualified name of the shortcut to saveas")

so, I had these:
link("C:\Documents and Settings\lonkero\desktop\KiXforms\mine","x:\","testing...","c:\dude.lnk")

and it worked fine.
_________________________
!

download KiXnet