Как определить путь к папке "рабочий стол" ? #333082

Нужно после формирования отчета сохранять на рабочий стол файл. Как определить путь ? Понятно, что можно дать возможность пользователю выбрать, потом сохранить... Но все-же нужно именно определять программно. Обработка может запускаться с разным компов.

может так.. %USERPROFILE%Рабочий стол

Рабочий стол

Пуск - выполнить - cmd - set

~/Desktop/ в любом линухе в форточках можно так же.

уверен ?

- тоже совсем не обязательно

WSH=Новый COMobject("wscript.shell"); Сообщить(WSH.SpecialFolders("Desktop"));

+ это точно... лучше через реестр смортеть

+ Меня не читать, я гоню.

иди про форматы отвечай, заждался уже.

Шелл=СоздатьОбъект("WScript.Shell"); ИмяПользователяСистемы = Шелл.ExpandEnvironmentStrings("%Username%");     Если ФС.СуществуетФайл("C:Documents and Settings"+СокрЛП(ИмяПользователяСистемы)+"Desktop")=1 тогда       Если ФС.СуществуетФайл("C:Documents and Settings"+СокрЛП(ИмяПользователяСистемы)+"DesktopОшибки_Проведения")=0 тогда        ФС.СоздатьКаталог("C:Documents and Settings"+СокрЛП(ИмяПользователяСистемы)+"DesktopОшибки_Проведения");        ПутьСохраненияОшибок = "C:Documents and Settings"+СокрЛП(ИмяПользователяСистемы)+"DesktopОшибки_Проведения";       КонецЕсли; ИначеЕсли ФС.СуществуетФайл("C:Documents and Settings"+СокрЛП(ИмяПользователяСистемы)+"Рабочий стол")=1 тогда       Если ФС.СуществуетФайл("C:Documents and Settings"+СокрЛП(ИмяПользователяСистемы)+"Рабочий столОшибки_Проведения")=0 тогда                    ФС.СоздатьКаталог("C:Documents and Settings"+СокрЛП(ИмяПользователяСистемы)+"Рабочий столОшибки_Проведения");        ПутьСохраненияОшибок = "C:Documents and Settings"+СокрЛП(ИмяПользователяСистемы)+"Рабочий столОшибки_Проведения";       КонецЕсли; КонецЕсли;

Но все равно, спасибо...

О.... теперь знать буду )))

Не, этот код в восьмёре не пашет.

Прикольно, тока не факт, что будет работать ...

Так надо для 8ки?.... в 7ке точно пашет, сам когда то писал и пользовал ))

А кто сказал, что профиль пользователея лежит в папке, имя которой совпадает с именем пользователя?

смотри в реестре по адресу HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerShell Folders там Desktop

Вот для восьмёры код: Функция ПолучитьСистемнуюПапку(Имя)    Попытка        СкриптКон = Новый COMОбъект("MSScriptControl.ScriptControl");        СкриптКон.Language = "vbscript";        СкриптКон.AddCode("        |Function SpecialFolders(Name)        |Set Shell = CreateObject(""Wscript.Shell"")        |SpecialFolders = Shell.SpecialFolders(Name)        |End Function");        ИмяПапки = СкриптКон.Run("SpecialFolders", Имя);    Исключение        ИмяПапки = Неопределено;    КонецПопытки;    Возврат ИмяПапки;     КонецФункции И там где нужно, пишем: Сообщить(ПолучитьСистемнуюПапку("Desktop"));

Да, тут ты прав....слава богу, что приходится работать с организациями, где винду умеют переставлять нормально....поэтому код был рабочим, и ни разу не было косяка. Но на будущее учтемс )

Еще один вариант, очень правильный и очень полезный еще для многого... давно овечено и во многих ветках. только неслышите...

у меня профили тут к примеру - "\appDocument$Руководители объектовГруппа 1Гужва_АИ" вложенность и названия и расположение вообще, зависит от многих значений, профили летают автоматом (и для вин и частично для лин)

Это у тебя перемещаемые профили, которые при логоне юзера копируются все равно в document and settigs............ на его машину, а потом при выходе синхронизируются с той папкой, которую ты указал.

да ну ?

+ это не совсем профили, это перемещаемые папки, но есть часть и профили, и нету их локально никогда...

Хочешь сказать, что это не перемещаемый профиль?

у тя винда стоит?

да... это перемещаемые папки, но и профили могут быть абсолютно отвязанные от компьютера (почти)...

Как можно сделать почти "абсолютно" отвязать профиль от компа. Я всегда думал, что при входе, он копирует его к себе, если это конечно не терминальное подключение

+ в первом предложении знак вопроса пропустил )

не копирует, остаются только темп и нтусер.дат

еще Local Settings

Пока не расскажешь как такое делается, не поверю

перенаправление папок...

Ага, уже нашел в инете.....спасибо