我有一个应用程序自动更新程序,其检查新的更新,移动现有的文件包括APP.EXE到新文件夹,并复制新版本的.exe + .dll文件的到应用程序的文件夹

一切都已经完美的工作没有问题,但有一个小故障 - 在原来的时间创建的快捷方式安装变得无效

有一种方法以编程解决这些快捷键?

有帮助吗?

解决方案

可以使用WshShell对象(用于识别文件夹和位置)更新的快捷方式,并且Scripting.FileSystemObject的进行更改。

下面是一个关于WshShell对象上MSDN的文章: http://msdn.microsoft.com/en-us /library/aew9yb99(VS.85).aspx

这是在VB脚本更换快捷方式链接的示例:

Sub ReplaceShortcut (folder, target, targetTarget)
  set oFso = CreateObject("Scripting.FilesystemObject")
  Set oFolder = oFso.GetFolder(folder)
  Set oFiles = oFolder.Files

  For Each oFile In oFiles

    If LCase(oFso.GetExtensionName(oFile.name)) = "lnk" Then
        Set oLnk = oShell.CreateShortcut(oFile.path)
        If instr(1, oLnk.TargetPath, target, 1)<>0 Then
            oLnk.TargetPath = replace(oLnk.TargetPath, target, targetTarget)
            oLnk.Save
        End If
    End If
  Next
End Sub
许可以下: CC-BY-SA归因
不隶属于 StackOverflow
scroll top