批量修改快捷方式的起始位置和目标位置

[kwsxz]

内容同上：
昨天从朋友的电脑里copy了100多个单机游戏，今天我让他把快捷方式发给我，他发给我的快捷方式都是这个路径e:\game\diskgame\
而我自己的所有游戏都放在f盘的f盘下的单机游戏里面，我想知道有没有办法用代码实现更改快捷方式的起始位置和目标位置啊，希望大家帮忙下
小弟跪求~~~

[SYSSZ]

(1)选中所有单机游戏,右键,创建快捷方式.---手工
(2)网上找一个建立快捷方式的源码,用DIR函数遍历单机游戏文件夹给每一个单机游戏都一个建立快捷方式

[supergreenbean]

如果你只要得到快捷方式，不用编程的方式也可以啊

你在 f:\单机游戏 下搜索*.exe文件，然后全选所有结果，接着右键拖动到桌面，并选择 在当前位置创建快捷方式


如果实在要用程序方式的话，就引用Microsoft Shell Controls And Automation

Private Sub Form_Load()
    Dim sTargetDir As String
    Dim sOldDir As String
    Dim sNewDir As String
    sTargetDir = "f:\mydir" '你放那100个快捷方式的文件夹名
    sOldDir = "e:\game\diskgame"
    sNewDir = "f:\单机游戏"
    
    Dim oShell As New Shell
    Dim oFolder As Folder
    Set oFolder = oShell.NameSpace(sTargetDir)
    Dim oFile As FolderItem
    Dim oShortcut As ShellLinkObject
    
    For Each oFile In oFolder.Items
        If oFile.IsLink Then
            Set oShortcut = oFile.GetLink
            With oShortcut
                .Path = Replace(.Path, sOldDir, sNewDir)
                .WorkingDirectory = Replace(.WorkingDirectory, sOldDir, sNewDir)
                .Save
            End With
        End If
    Next
End Sub

[xrongzhen]

自己手动解决就O了

[kwsxz]

讲白了就是，我想通过代码批量修改快捷方式的起始位置和目标位置

[码之魂]

哈哈，让我来告诉你吧~！！！！
你这样，写个程序就行了，我之前写过一个
把他给你的快捷方式的你需要的内容读出来，然后再建立一个快捷方式就OK了。
呵呵，你搜我帖子吧。

[嗷嗷叫的老马]

...........

[zzyong00]

[Quote=引用 2 楼 supergreenbean 的回复:]
如果你只要得到快捷方式，不用编程的方式也可以啊

你在 f:\单机游戏 下搜索*.exe文件，然后全选所有结果，接着右键拖动到桌面，并选择 在当前位置创建快捷方式


如果实在要用程序方式的话，就引用Microsoft Shell Controls And Automation


VB code
Private Sub Form_Load()
Dim sTargetDir As String
Dim sOldDir As String
Dim sNewDir As String
sTargetDir = "f:\mydir" '你放那100个快捷…
[/Quote]
顶顶