Имя: Пароль:
1C
1С v8
Получить текстовый файл из каталога USERPROFILE
0 AlexKulikov
 
11.11.16
14:20
Добрый день, уважаемые форумчане.
Столкнулся с такой проблемой, следующего характера, а именно: не находит текстовый файл в указанном каталоге, хотя на компе он есть.

Ниже привожу код:
1- вариант
<code>
КаталоГдеИскать = "%userprofile%\Application Data\Microsoft\Signatures";
     МассивНайденныхФайлов = НайтиФайлы(КаталоГдеИскать, "*.txt");
    Для Каждого Файл Из МассивНайденныхФайлов Цикл
        Сообщить(Файл.Имя);
    КонецЦикла;
</code>

2 - вариант

<code>
ПутьДляФайловПодписи="%USERPROFILE%\Application Data\Microsoft\Signatures\ТестПодпись.txt";
    КаталогНаДиске = Новый Файл(ПутьДляФайловПодписи);

Если КаталогНаДиске.Существует() Тогда
        Сообщить("Файл есть!");
    КонецЕсли;    
</code>

В обоих случаях файл на компе есть, в нем есть данные. У 1с другое мнение на этот счет.

Прошу Вашей помощи и совета, с уважением, Алексей.
2 Лефмихалыч
 
11.11.16
14:24
Set oWS = WScript.CreateObject("WScript.Shell")
userProfile = oWS.ExpandEnvironmentStrings( "%userprofile%" )
3 AlexKulikov
 
11.11.16
17:52
Огромное Вам спасибо.