更改多个快捷方式的驱动器号

Question

我遇到了一个小问题。我为我的计算机准备了三张备份光盘和一大堆 windows 快捷方式。

我的目标是更改多个 windows-快捷方式 (.ink) 的 "target" 和 "open in" 值：

"A:\Folder\File.mpg"

至

"D:\Folder\File.mpg"

大约 2k 个文件。

我不知道如何在 windows-快捷方式 (.ink) 中查找（和更改）"target" 和 "open in" 值。需要明确的是，它只是分区字母 "A":\ 在这种情况下，我希望更改（到 "D"），字符串中没有其他内容。（对于多个项目）

想的是：

dim letterOne = combobox1.text
dim letterTwo = combobox2.text

    for each file
    shortcut.TargetPath("letterOne ", "*.ink")

改为

shortcut.TargetPath("letterTwo", "*.ink")

Answer 1

如果我没看错问题，你可以使用 Replace 字符串函数：

MyString.Replace("A:","D:")

如果您需要为很多文件执行此操作，请构建文件名集合，然后使用 For Each 循环。

Change the drive-letter for multiple shortcuts