Ajuda com HTA, para executar arquivos!

[edumanilha]

O código é esse:

Sub doSend()

For Each objOption in PhoneNumbers.Options

If objOption.Selected Then

A3 = objOption.InnerText

Msgbox A3

Set oSh = CreateObject("Wscript.Shell")

oSh.Run ("%comspec% /c Start mpc-hc ""A3"" /fullscreen")

End If

Next

End Sub

Queria iniciar o arquivo escolhido no media player classic, no caso um filme...Mas o A3 mostra o nome do filme na Msgbox mas não na linha de comando do Start....Alguém pode ajudar? :unsure:

Obrigado desde já!

[*FIT*]

Isso não seria VB?

[edumanilha]

Isso não seria VB?

hehehe, não devo ter me expressado bem...É realmente vbscript, estou usando ele num HTA que estou fazendo aqui...Dei só um exemplo do que estou tentando, mas o arquivo não abre, se alguém tiver uma outra opção, seja javascript ou qualquer outra que eu possa usar no meu HTA agradeço!

[*FIT*]

Ok, mas aonde quer exibir isso?

Assim posso mover seu tópico para a area mais indicada aonde poderam ajudar melhor, pois acredito que não seja HTML.