Thread: ShellExecute
View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Dave Unger Dave Unger is offline
external usenet poster
 
Posts: 153
Default ShellExecute

Hello,

Running XP pro & Excel 2007

I was running this bit of code this morning to launch a shortcut on
the desktop, and everything was working fine. While experimenting
with variations things went into "lala land", and now I can't get it
to work again (with the original code). Reinstalling Excel didn't
help. It looks like it's going to launch the shortcut (mometary
hourglass), but the window never opens. Interestingly, it will still
launch a .bat file without any problem. My experience with API calls
is limited, any help would be most appreciated.

regards,

DaveU

Sub LaunchLNK()
Dim DeskTop As String
DeskTop =
CreateObject("WScript.Shell").SpecialFolders.Item( "Desktop")
ShellExecute 0, "Open", DeskTop & "\myfile.lnk", "", "C:\", 1
End Sub