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

Question

我有点问题。我为我的计算机准备了三个备份盘，还有一些病态的Windows快捷方式。

我的目标是从以下位置更改多个窗口快捷方式（.ink）的“目标”和“打开”值：

“A：\ Folder \ File.mpg”

到

“d：\文件夹\ File.mpg”

大约2k文件。

我对如何在Windows快捷方式（.ink）中找到（和更改）“目标”和“打开”值只是空白。要清楚，它只是分区字母“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循环。