Процедура xml_СоздатьФайл(прм_ИмяФайла)
    xml_fso=СоздатьОбъект("Scripting.FileSystemObject");
    xml_file=xml_fso.CreateTextFile(прм_ИмяФайла, -1, 0);     xml_file.WriteLine("<?xml version=""1.0"" encoding=""windows-1251""?>");
    xml_СтекТегов=СоздатьОбъект("СписокЗначений");
    xml_Отступы="";
    xml_ТегОткрыт=0;
КонецПроцедуры


Ругается на
xml_file=xml_fso.CreateTextFile(прм_ИмяФайла, -1, 0)

КАК ругается? текст ошибки давай...

нет текста ошибки

(2) врешь, текст ошибки есть, или в журнале регистрации или в логах системы...

смысл врать?

мне помощь нужна

(5) ну так пока текст ошибки не найдешь - помощи не будет, ибо телепатов нет...

сделай так

Процедура xmlСоздатьФайл(прмИмяФайла)
попытка
    xml_fso=СоздатьОбъект("Scripting.FileSystemObject");
    xml_file=xmlfso.CreateTextFile(прмИмяФайла, -1, 0);    
xmlfile.WriteLine("<?xml version=""1.0"" encoding=""windows-1251""?>");
    xmlСтекТегов=СоздатьОбъект("СписокЗначений");
    xmlОтступы="";
    xmlТегОткрыт=0;
исключение
сообщить(описаниеошибки();
конецпопытки;
КонецПроцедуры