更改多个快捷方式的驱动器号
Change the drive-letter for multiple shortcuts
我遇到了一个小问题。我为我的计算机准备了三张备份光盘和一大堆 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")
如果我没看错问题,你可以使用 Replace
字符串函数:
MyString.Replace("A:","D:")
如果您需要为很多文件执行此操作,请构建文件名集合,然后使用 For Each
循环。
我遇到了一个小问题。我为我的计算机准备了三张备份光盘和一大堆 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")
如果我没看错问题,你可以使用 Replace
字符串函数:
MyString.Replace("A:","D:")
如果您需要为很多文件执行此操作,请构建文件名集合,然后使用 For Each
循环。