variabele locatie in hta

[RMS123]

Hallo iedereen!

ik heb een hta applicatie gemaakt met daarin deze button:

 <SCRIPT LANGUAGE="VBScript">
     Sub shortc
         Set WSHShell = CreateObject("Wscript.Shell")
         WSHShell.Run ("\shrt.bat")
     End Sub
 </script>

maar hij vind de locatie niet!
ook heb ik al %CD% gebruikt, .\, en andere dingen maar ik krijg niks werkend.
de button verwijst naar een batch-file die een shortcut maakt.

iemand een idee?

alvast bedankt,