문제

새 업데이트를 확인하고 App.Exe를 포함한 기존 파일을 새 폴더로 이동하고 새 버전 .Exe + .dll 's를 앱 폴더에 복사하는 응용 프로그램 자동 업데이트가 있습니다.

모든 것이 문제없이 완벽하게 작동했지만 하나의 작은 결함이 있습니다. 원래 설치 시점에 생성 된 바로 가기는 유효하지 않습니다.

이러한 지름길을 프로그래밍 방식으로 수정하는 방법이 있습니까?

도움이 되었습니까?

해결책

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