Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / allusers desktop / 3 сообщений из 3, страница 1 из 1
15.12.2004, 11:04:49
    #32827982
АлексейК
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
allusers desktop
надо создать ярлык для всех пользователей компа.

т.е. во внезависимости от OS W98 W2000 XP W2003
определить папку рабочих столов для всех юзеров

пока умею только текущему юзеру
делаю так:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
'Помещаем ярлык на рабочий стол
 addmsg ("Создание ярлыка на рабочем столе")
strDesktop = oShell.SpecialFolders("Desktop")
Set oShellLink = oShell.CreateShortcut(strDesktop & "\Составление_бюджета.lnk")
oShellLink.TargetPath = "\\dataserver\partners\Files\updatepartner.vbs"
'"""" & access10path & "MSACCESS.EXE " & """" & "C:\base\partners\partner.adp"
oShellLink.WindowStyle =  3 
oShellLink.Hotkey = "CTRL+SHIFT+P"
oShellLink.IconLocation = access10path & "MSACCESS.EXE , 0"
oShellLink.Description = "Составление бюджета"
oShellLink.WorkingDirectory = strDesktop
oShellLink.Save

как найти allusers desktop?????
...
Рейтинг: 0 / 0
15.12.2004, 14:10:07
    #32828513
Victosha
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
allusers desktop
ну, его так и зовут -
"AllUsersDesktop "


(с выражением лица)
...
Рейтинг: 0 / 0
15.12.2004, 15:06:58
    #32828673
АлексейК
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
allusers desktop
спасибо тебе огромное.

как всегда гениальное - просто
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / allusers desktop / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]