Re: Windows Media Player VB6
- From: "Mike Williams" <mikea@xxxxxxxxxxxxxxxxx>
- Date: Mon, 23 Apr 2007 12:24:30 +0100
"Ron" <Ron@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message news:C88B6BDE-EE70-4B54-A9EB-DC4C64D04F17@xxxxxxxxxxxxxxxx
I am getting the Automation Error
That's almost certainly because the file you are attempting to play does not exist. Post the *exact* code you are currently using. As far as I recall you are using the following line to play the file:
Player1.RenderFile sPlayer & sSelection
If that is the case then try replacing it with this line:
MsgBox FileExists(sPlayer & sSelection)
.. . . after first adding the following function to your code:
Private Function FileExists(fname As String) As Boolean
On Error Resume Next
FileExists = (GetAttr(fname) And vbDirectory) = vbNormal
End Function
Does the message box report a True or a False?
Mike
.
- References:
- Re: Windows Media Player VB6
- From: Mike Williams
- Re: Windows Media Player VB6
- From: Ron
- Re: Windows Media Player VB6
- From: Mike Williams
- Re: Windows Media Player VB6
- From: Ron
- Re: Windows Media Player VB6
- Prev by Date: Re: Authenticate Against the Domain
- Next by Date: Re: Here's one for you rick
- Previous by thread: Re: Windows Media Player VB6
- Next by thread: Re: Windows Media Player VB6
- Index(es):
Relevant Pages
|