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

Question

我有一个小问题。我为计算机得到了三个备份纸张，并有一大堆Windows-Shortcuts。

我的目标是从：

中更改多个Windows-ShortCuts（.ink）的"目标"one_answers"打开"值

" a：文件夹 file.mpg"

to

" D：文件夹 file.mpg"

大约2k文件。

我只是关于如何在Windows-ShortCuts（.ink）中找到（和更改）"目标"one_answers"打开"值的空白。需要明确的是，这只是分区字母" 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循环。