HTA Speicherpfad ausgeben

[CitizenX]

Hallo,

ich bin auf der Suche nach einer Möglichkeit den Speicherpfad einer selbsterstellen HTA (VbScript) auszulesen.
Mit "Self.location.pathname" funktioniert es ,aber wenn ich die HTA in eine exe convertiere wird mir der Speicherpfad der ausgelagerten Dateien (HTA,Images etc.) ausgegeben?! Der Speicherpfad von der .exe ist aber ein anderer.

Hat jemand eine Erklährung bzw eine Lösung des Problems parat?

Danke und VG
Steffen

 

[CitizenX]

Hi,
hab's rausgefunden:

Dim FSO:Set FSO = CreateObject("scripting.filesystemobject")
Dim myPath
myPath=FSO.GetAbsolutePathName(FSO.getbasename(Self.location.pathname))

Viele Grüße
Steffen