using ShellExecute in Windows 7

Hi,

I have succesfully used ShellExecute to start a program in Windows XP:

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

and a following VBA code:

Sub test()

Dim Filename As String
Dim Result As Long
Filename = "O:\Scheduler.cmd"

Result = ShellExecute(0, vbNullString, Filename, vbNullString, vbNullString, vbNormalFocus)

If Result < 32 Then
    MsgBox "Error"
End If

End Sub

Unfortunately sub doesn't work anymore in 64 bit Windows 7. How should I modify the function declaration/code to get it working..??

Thanks for any help.

Br,
Jack

Hi,

Thanks for your answers. I don't have a 64 bit office. It certainly seems that "shell32.dll" is wrong but i dont know how to modify the declaration. Which I don't understand is that my macro starts the program "Scheduler.cmd" but the program itself doesn't work when starting it with my code. If I just go and double-click "scheduler.cmd" it runs normally.

Unfortunately i don't understand why is it working when I double-click the software but fails when using the macro. Any ideas on that..?

Br,
Jack