"cdubone" <gu
...@unknown-email.com> wrote in message
...
> Yes, you're correct about about the slash in D:\assets\TheFile.wmv, that
> was just a typo.
> I can get the application to open wmplayer and a certain file if I hard
> code it. For example:
> objShell.Run "wmplayer.exe D:\assets\TheFile.wmv"
> works perfectly.
Yes it does. Note however, that the command actually being run contains no
quotes; the quotes in the .run statement simply serve to pass the command to
be run as a literal string. look at the statement without the quotes:
objShell.Run wmplayer.exe D:\assets\TheFile.wmv
Does that look like a valid vbscript statement to you?
Also note that if you go start - run - and then enter the command with no
quotes it should run, but if you enter it with quotes, an error dialog will
pop up stating that:
windows cannot find 'wmplayer.exe D:\assets\TheFile.wmv'
> However, if I construct that very same string it doesn't work:
> LaunchDir = objShell.CurrentDirectory
> RelPath = "assets\" & theFile
Presumably you have just forgotten to include this statement somewhere
above:
theFile = "theFile.wmv"
> ThePlayer = "wmplayer.exe "
> FullPath = chr(34) & ThePlayer & LaunchDir & RelPath &
> chr(34)
replace the above statement with:
FullPath = ThePlayer & LaunchDir & RelPath
and it should work.
> document.write(FullPath)
> objShell.Run FullPath
> The document.write outputs "wmplayer.exe D:\assets\TheFile.wmv" which
> seems correct to me
As noted above the actually correct command has no quotes in it.
> but I get the error "the system cannot file the file
> specified" "URL: file///D:/index.hta".
Different error message, but the result is the same.
/Al
> Anyone know what I need to do to get this working?
> Al Dunbar;1181374 Wrote:
>> "cdubone" <gu...@newsgroup-email.com> wrote in message
>> news:09b40379df88c25c91573f85a8d01528@newsgroup-gateway.com...> > >
>> > > I'm making an app that lives on a CD that opens wmv's from the CD. I
>> > > thought everything was going well until I realized that if wmplayer
>> > > isn't the default player the thing crashes. I have no idea why this
>> > is
>> > > (I'm a Web dev and I'm totally out of my league here). Anyway, I'm
>> > > trying to get around this by forcing wmplayer to open. Here's my
>> > code:
>> > > Sub OpenFile (theFile)
>> > > Set objShell = CreateObject("Wscript.Shell")
>> > > objShell.Run "assets\" & theFile
>> > > ' objShell.Run "wmplayer.exe D:assets\TheFile.wmv" > > I
>> > > know that is a comment, however, it is of concern that "D:" is not
>> followed immediately by a "\". Similarly, the "D:" itself would not
>> allow
>> for this to work in a computer having two hard drives, or two CD
>> drives.
>> > > End Sub
>> > > This works: objShell.Run "assets\" & theFile
>> > > And if I hard code a file reference it works:
>> > > objShell.Run "wmplayer.exe D:assets\TheFile.wmv" > > Again, you
>> > > really should use more explicit paths that will always be
>> correct
>> rather than relying on the path including the desired executable, and
>> the
>> "D:" drive containing the CD.
>> > > I'm essentially trying to fuse those two lines of code - open
>> > 'theFile'
>> > > in the assets directory via a relative path (not absolute) in
>> > wmplayer.
>> > > I've tried so many ways to get this going but can't seem to find the
>> > one
>> > > that works.
>> > > Will someone show me how this is done? > > You might include a copy
>> > > of wmplayer.exe on the CD, assuming that
>> running
>> this will not modify the user's related settings on the workstation.
>> Or you
>> might do a search for wmplayer.exe on the hard drive, as it may not
>> be
>> located in the same place on all systems.
>> /Al
> --
> cdubone
|
