How do you open a .lnk

[gr8_big_geek]

Hello all,

I am needing to open shortcut's in different places on my computer. I've located this thread:

http://www.mrexcel.com/forum/showthread.php?p=1498822

That seems okay but I'm not trying to open a shortcut from the desktop (rather, I need to open it from anywhere on the C:\ drive USA). The reason I need to open the shortcut is because the shortcut is a mute toggle.

(it uses nircmd.exe and has the following in the .lnk path in order to mute/unmute when the shortcut is clicked: "C:\VR_MAIN\Confirmation_Commands\nircmd\nircmd.exe" mutesysvolume 2 microphone)

To open a program I use:

sub program_execute()
Dim strRoboappPath As String, varProc As Variant
On Error Resume Next
strRoboappPath = "C:\Program Files (x86)\Microsoft Office\Office12\EXCEL.exe" 'path here
varProc = Shell(strRoboappPath, 1)
End Sub

I have messed around with the (program opening) coding but cannot seem to get a .lnk to trigger using it!! ARG! Also, I've played around with the above link to help me open a .lnk file but with no such luck.

Any and/or all assistance would be wonderful.

Thanks in advance,

Your Geek~

 

[Leith Ross]

Hello gr8_big_geek,

This macro will open a file or shortcut. Be sure to include the extension with the file name. If it is a shortcut then add ".lnk" to the file name event it has another extension. Change the file path and file name to what you will be using.

Sub OpenFile()

  Dim FileName As Variant
  Dim FolderItem As Object
  Dim FolderPath As Variant
  Dim oFolder As Object
  Dim oShell As Object
  
    FolderPath = "C:\Documents and Settings\Admin.ADMINS\Desktop"
    FileName = "Solitaire.lnk"
    
      Set oShell = CreateObject("Shell.Application")
      Set FolderItem = oShell.Namespace(FolderPath).ParseName(FileName)
    
      FolderItem.Verbs.Item(0).DoIt
    
End Sub