Na opção Dicas Novas contém a seguinte dica para abrir atalhos:

Private Sub Command1_Click()
Dim x As WshShell
Set x = New WshShell
x.Run "C:STAR DivX Player 1.0.lnk"
End Sub

 

Quando executada, a função apresenta o seguinte erro:

Run-time error "-2147024894 (80070002)"- Automation error

 

Como corrigir isto ??

Vou verificar o código e comunico assim que corrigir o erro!

Encontrei uma solução!

 

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const conSwNormal = 1

 

Private Sub Command1_Click()
    ShellExecute hWnd, "open", "C:Documents and SettingsHennyereDesktopProject.lnk", vbNullString, vbNullString, conSwNormal
End Sub

 

Funcionou !

 

Agora a dúvida é:

 

Como verificar a existencia do arquivo através do atalho??

 

Se o atalho C:Programa.lnk for referente ao arquivo C:Programa.exe, logicamente para abri-lo, o programa tem que existir. Como posso fazer essa verificação?

Agora a dúvida é:

 

Como verificar a existencia do arquivo através do atalho??

 

Se o atalho C:Programa.lnk for referente ao arquivo C:Programa.exe, logicamente para abri-lo, o programa tem que existir. Como posso fazer essa verificação?