Retrieve target location from a link file

toshesh · March 29th, 2006, 12:29 PM

Hi everyone,
I have several shortcut files on my desktop and need to find out how to retrieve the target location of each shortcut goes programmatically. So far I managed to get all my link files on my desktop as shown in the code but I have no idea how to retrieve target location information from each shortcuts. Could anyone help please?

Code:

            IDictionary environmentVariables = Environment.GetEnvironmentVariables();
            string dd = environmentVariables["USERPROFILE"].ToString() + "\\Desktop";

            string[] files= Directory.GetFiles(dd, "*.lnk");

            foreach (string file in files) {
                MessageBox.Show(file);
                //Get target location of each lnk file
            }

Sparky110 · March 6th, 2007, 11:54 AM

References: Microsoft Scripting Runtime

example of cell.text: "D:\Home Drive\myexcelfileshortcut.xls.lnk"

Sub shortcutTarget()
Dim Shortcut, WshShell
Dim cell As Range

Set WshShell = CreateObject("WScript.Shell")

Application.ScreenUpdating = False

For Each cell In Selection
Set Shortcut = WshShell.CreateShortcut(cell.Text)
Cells(cell.row, 2) = Shortcut.TargetPath
Next

Application.ScreenUpdating = True

End Sub