<script language=javascript>
alert(GetAbsolutePathName());

function GetAbsolutePathName(){
    var pathname = document.location.pathname;
    return pathname.substring(1,pathname.lastIndexOf("/")).replace(/\//g,"\\");
}
</script>

Не вариант ? На JS пишу коряво, так что наверняка можно всё это короче "нарисовать" используя только regexp.

var w, fso;
fso=new ActiveXObject("Scripting.FileSystemObject");
w=fso.GetAbsolutePathName("");
alert(w);

если этот html файл упаковать в chm и запустить из любого места, то вернется папка из которой этот chm стартовали
если использовать браузер на движке ИЕ, то тоже вернется папка из которой этот html стартовали
если запустить файл в самом ИЕ, то он вернет путь к рабочему столу, а мне нужна папка из которой html запустили
почему ИЕ возвращает другой путь?

как то так, лучше не умею, все мы люди и все мы разные

Serge Yolkin, вы вопрос перечитайте внимательней, мы о разных папках говорим.

Любитель, так пишите так, чтобы было понятно. О какой папке идёт речь? Какая программа стартовала?

Не вижу противоречия:

Папка из которой стартовала программа.

Хотя уже понятно, здесь нет решения.

Serge Yolkin, вы вопрос перечитайте внимательней, мы о разных папках говорим.

Не вижу противоречия:

alert(new ActiveXObject("InternetExplorer.Application").Path);

для локального .html файла выдаёт

---------------------------
Сообщение с веб-страницы
---------------------------
C:\Program Files\Internet Explorer\
---------------------------
ОК   
---------------------------

после двух предупреждений безопасности, для файла в инете, скорее всего, не будет работать совсем. Но, в этом случае, и с fso будут проблемы.

new ActiveXObject ?

А то что происходит с ним, я написал в первом посту, это и был вопрос.

new ActiveXObject ?

Точно. Я был неправ. Это ж JScript.

Без «WScript»:

С ним пишет,  'WScript' - определение отсутствует
Без него, Предполагается наличие объекта

Спасибо, но как это в браузере использовать?

Без «WScript»:

var way = CreateObject("InternetExplorer.Application").Path;

Как в ИЕ получить путь к папке программы?

>

var way = WScript.CreateObject("InternetExplorer.Application").Path;