Всем привет!
Как можно без диалога выбора файла получить путь с системной переменной
"%USERPROFILE%\Desktop\111.xls" - например. для работы с этим файлом.
???

echo %USERPROFILE% > c:\111.txt
и прочитать

ты что хотел-то?

(2)работать с этим файлом, открыть ФС записать и тд..

(1) + можно без файла

set WshShell = WScript.CreateObject("WScript.Shell")
msgbox WshShell.ExpandEnvironmentStrings("%USERPROFILE%"), vbsOk

----------
(3) ну и что тебя смущает?

Сообщить(ФС.СуществуетФайл("%USERPROFILE%\Desktop\111.xls"));


(4) Дело в том что
Сообщить(ФС.СуществуетФайл("%USERPROFILE%\Desktop\111.xls"));
не работает возврощает 0
%% 1с7 не понимает...

а Сообщить(ФС.СуществуетФайл("C:\Users\Desktop\111.xls"));
все ок -1

C:\Users\Maxim\Desktop\111.xls

Значит через shell получай значение %USERPROFILE%

(8)? как? через апи

(9) Читаем внимательно (4).
Очень внимательно.

Если не поняли, читаем ещё раз...

(10) Со скриптом не красиво, может как еще можно....


Скрипт=СоздатьОбъект("MSScriptControl.ScriptControl");
Скрипт.language="vbscript";
Скрипт.AddCode("Function My()
   |    set WshShell = CreateObject(""WScript.Shell"")
   |    My = WshShell.ExpandEnvironmentStrings(""%USERPROFILE%"")
   |End Function");
Сообщить(Скрипт.Eval("My"));


http://www.script-coding.com/MSScriptControl.html

Самое интересное что если
ФС.ВыбратьФайл (1, ИмяФайла, "%USERPROFILE%\Desktop\", "Укажите имя файла Excel", "Книга Microsoft Excel (*.xls)|*.xls","xls")
то работает....

(12) (13) dk спасибо за скрипт если не как не получаться воспользуюсь им.
У меня предрассудки по поводу внешних средств(( может я и не прав.