calling default media player 1

[manny1234]

What would the syntax be to call my default media player ie Winamp, Itunes, or Windows Media player. Like calling

%System Root%

I have

Private Sub Command739_Click()
On Error GoTo Err_Command739_Click

    Dim stAppName As String

    stAppName = "C:\Program Files\Windows Media Player\wmplayer.exe \\DOKKEN\H\DONOTDELETE.WAV"
    Call Shell(stAppName, 1)

Exit_Command739_Click:
    Exit Sub

Err_Command739_Click:
    MsgBox Err.Description
    Resume Exit_Command739_Click
    
End Sub

I want to replace c:\Program Files... with whatever the syntax is to call the default media player.

 

[Remou]

How about FollowHyperlink?
FollowHyperlink "C:\Dirs\Dir\Sounds.Wav

 

[manny1234]

that works, is there anyway of shutting off the warning about how you might be downloading viruses etc. I put in DoCmd.SetWarnings False and it did squat.

 

[Remou]

How about this then:
How To Use ShellExecute to Launch Associated File (32-bit)

http://support.microsoft.com/default.aspx?kbid=170918

 

[PHV]

You may try this:
CreateObject("WScript.Shell").Run "\\DOKKEN\H\DONOTDELETE.WAV", 7

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886