Visual Basic 6 - Aprire media player tramite command button...

Ho creato un form con un command button (per aprire il media player) e una textbox (che contiene l'URL di un video).

Siccome nn voglio assolutamente usare il controllo ActiveX del media player, ma lanciare direttamente il media player, Ho provato ad aprire il media player facendo così:
Shell "C:\Programmi\Windows Media Player\wmplayer.exe", vbMaximizedFocus
...e devo dire che è andato tutto per il meglio.

Mi rimangono però ancora due dubbi:
1) La path, nel mio caso "C:\Programmi\Windows Media Player\wmplayer.exe", va bene anche per gli altri computer, dove è possibile che il media player si trovi in altre cartelle??
Se non va bene come posso fare, cioè cosa andrei a mettere come path???
2) Quando lancio il media player, come faccio a far partire automaticamente un video, il quale indirizzo è presente in una textbox nel form??

Grazie a chi mi risp

per la 2 devi fare
Shell "C:\Programmi\Windows Media Player\wmplayer.exe " & text1.text, vbMaximizedFocus
per la prima dovresti usare comandi come %programfiles%
credo ma non ne sono certo che il codice corretto dovrebbe essere

Shell chr(34) & "%programfiles%\Windows Media Player\wmplayer.exe" & chr(34) & " " & text1.text, vbMaximizedFocus

Per semplificare il tutto,potresti usare shellexecute:

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 SW_NORMAL = 1
Private Sub Command1_Click()
ShellExecute hWnd, "Open", "C:/Swan.mp3", vbNullString, vbNullString, SW_NORMAL
End Sub

Dove "/…; è il file da aprire

in effetti...
così ti si aprirebbe anche con il tuo lettore predefinito.

Infact,se vuoi che non si apra,aprilo con il tuo programma,metti o un controllo mmcontrol o usi l'api mcisendstring

La soluzione che ho adottato alla fine è stata questa:

Dim sPath As String
sPath = Environ("ProgramFiles" & "\Windows Media Player\wmplayer.exe"

Shell sPath & " " & Text1.Text, vbMaximizedFocus

Grazie cmq a tutti per i buoni suggerimenti

Non conoscevo sta funzione.....
Di nulla cmq..