Modify shortcut file's shorcut

[bulina2k]

Hello friends!

Is there a fast way to modify the target address of a shorcut file ? I have a bunch of folders and sub-folders full of these and their original target (server) just changed. E.g. :
"\\10.10.10.3\folder\subfolder\884.1-2.filename.xls" to "\\10.10.20.7\FOLDER\folder\subfolder\884.1-2.filename.xls"

Thank you !

[Rioran]

Good time of day!

You may use a loop across folders and subfolders. Inside this loop you may use technichs presented down below. If you need to modify only part of every link - use "Replace" method.

Sub Change_LNK()
    ' Go to "Tools" => "References" and activate "Microsoft Shell Controls and Automation" option
    Dim ShlX As Shell32.Shell
    Dim FolderX As Shell32.Folder
    Dim Folder_Item As Shell32.FolderItem
    Dim ShortCut As Shell32.ShellLinkObject
    
    Set ShlX = New Shell32.Shell
    Set FolderX = ShlX.Namespace("C:\Users\rvoronov\Desktop\") ' Insert your shortcut path here
    Set Folder_Item = FolderX.ParseName("Rio_Link.lnk") ' Insert your name of shorctut file here
    Set ShortCut = Folder_Item.GetLink
    
    ShortCut.Path = "C:\Users\rvoronov\Documents\OKEY Programs" ' Insert your new path here
    ShortCut.Save
End Sub

[bulina2k]

Thank you very much Rioran! I was almost going to close this thread as I thought that it wasn't excel-related enough but your code works great!