全局更改快捷方式的驱动器号?

全局更改快捷方式的驱动器号?

在我的 XP (SP3) PC 上,我即将把“我的文档”(有时古怪但容易混淆地称为“Terry 的文档”)从 C:\Docs 移动到 I:\Docs。

请问,重命名受影响的数千个快捷方式的最简单(和最安全)的方法是什么?

我仍需要做大量工作来更改其他参考资料(尤其是我的所有 Macro Express Pro 宏和 AutoHotkey 脚本),但我将稍后解决这些问题。

-- 特里,英国伊斯特格林斯特德

答案1

看起来 PowerShell 可能能够更改快捷方式属性:请参阅这个答案

答案2

我不是 VBScript 专家,但这个脚本似乎可以解决问题:

Const DESKTOP = &H10&

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(DESKTOP)
Set objFolderItem = objFolder.ParseName("Change wallpaper.lnk")
Set objShellLink = objFolderItem.GetLink

objShellLink.Path = Replace (objShellLink.Path, "I:\", "C:\")
objShellLink.Save()

这将在您的桌面上创建一个快捷方式(名为“更改壁纸.lnk”),并将C:\其目标中的替换为I:\。显然,您需要迭代许多快捷方式...

相关内容