Мир ИТ - Ярлыки
   
  Мир ИТ
  Содержание
  1С:Предприятие
  => Проблема неуникальных индексов
  => Сертификация ЗУП 8. Ответы.
  => Сертификация Бухгалтерия 8. Ответы.
  => Ярлыки
  Oracle
  SQL Server
  SAP
  Linux
  Контакт
  Гостевая книга
Скрипт для создания ярлыков на рабочем столе




' Константы для путей
  constSourcePath = "prnsrvInstallIBPropuskexe"
  constProgName   = "Propusk.exe"

  Set WSHShell = WScript.CreateObject("WScript.Shell")

' Копируем файл
  Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
  Set UsrEnv = WSHShell.Environment("USER")
  ExeFile = WSHShell.ExpandEnvironmentStrings(UsrEnv("TEMP")) & "" & constProgName
  objFSO.CopyFile constSourcePath & "" & constProgName, ExeFile

' Создаем ярлык
  Dim DesktopPath
  DesktopPath = WSHShell.SpecialFolders("Desktop")
  Dim MyDocsPath
  MyDocsPath  = WSHShell.SpecialFolders("MyDocuments")
  Dim FileSystem
  Set FileSystem = WScript.CreateObject("Scripting.FileSystemObject")
  If Not FileSystem.FileExists(DesktopPath + "Заказ пропусков.lnk") then
    Dim MyShortcut
    Set MyShortcut = WSHShell.CreateShortcut(DesktopPath + "Заказ пропусков.lnk")
    MyShortcut.TargetPath = WScript.ScriptFullName
    MyShortcut.WorkingDirectory = MyDocsPath
    MyShortcut.WindowStyle = 3
    MyShortcut.Save
  End If

' Запускаем программу
  WSHShell.Run """" & ExeFile & """", 3


Сегодня были уже 6 посетителей (14 хитов) здесь!
Этот сайт был создан бесплатно с помощью homepage-konstruktor.ru. Хотите тоже свой сайт?
Зарегистрироваться бесплатно