Magneto, используйте метод ExpandEnvironmentStrings().

Спасибо, я воспользовался этим методом:

var wss = new ActiveXObject('WScript.Shell');
var path = wss.ExpandEnvironmentStrings('%APPDATA%');

mshta "javascript:x=new ActiveXObject('shell.application');s='';for(i=1;i<100;i++)try{s+='<tr><td>'+x.NameSpace(i).self.Name+'</td><td>'+x.NameSpace(i).self.Path+'</td></tr>'}catch(e){};window.onload=function(){document.write('<table>'+s+'</table>')}"

var f3 = fso.CreateFolder(namefolder, 1, false);

Ошибка: Недопустимое число аргументов или присвоение значения свойства.

f3.Close();

Ошибка: Объект не поддерживает свойство или метод "Close".

Не нужно путать CreateFolder() с CreateTextFile().

И мне нужно воспользоваться переменной среды.

function createfolders(namefolder) {
var fso = new ActiveXObject("Scripting.FileSystemObject");
    var b3 = fso.FolderExists(namefolder);    // true, если папка существует
        if (b3==true) alert("Данная директория уже существуют, ее создание невозможно ");
        else {
                var f3 = fso.CreateFolder(namefolder, 1, false);
        f3.Close();
        alert("Директория "+'\n'+namefolder+'\n'+" cоздана")
        }
}

var namefolder="c:\\backup\\";

1 код - это функция
2 часть кода взята из основного тела программы, где присваивается имя переменной..
Все работает. Проверку на наличие папки с таким именем можно исключить...
Если внимательно присмотреться твою ошибку найти не составит труда.

Есть еще одно предостережение: в 7-ке могут потребоваться права администратора и/или их подтверждение в зависимости от настройки ПК. Мой код предназначен для ХП без подтверждения прав администратора.

Пробую следующим образом:

<script language="JScript">
var fso = new ActiveXObject('Scripting.FileSystemObject');
    fso.CreateFolder('%APPDATA%\NewFolder');
</script>

При этом папка создается в текущей папке  рядом с самим приложением с именем "%APPDATA%NewFolder". Как создать папку в нужном месте?
P.S. Скрипт выполняется в HTA приложении.