home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / CHIPCD_9_99.iso / software / uaktualnienia / OptionPackPL / wsh.cab / shortcut.vbs < prev    next >
Text File  |  1998-01-22  |  2KB  |  61 lines
  1. ' Przyk│adowy skrypt dla Hosta skrypt≤w systemu Windows
  2. '
  3. ' ------------------------------------------------------------------------
  4. '               Copyright (C) 1996 Microsoft Corporation
  5. '
  6. ' Klient posiada pe│ne prawa do u┐ywania, modyfikowania, reprodukowania 
  7. ' i dystrybucji plik≤w przyk│adowych aplikacji (i/lub dowolnej 
  8. ' ich zmodyfikowanej wersji), w spos≤b dla niego u┐yteczny, pod warunkiem 
  9. ' zaakceptowania faktu, i┐ firma Microsoft nie zapewnia gwarancji i nie 
  10. ' ponosi odpowiedzialno£ci za pliki przyk│adowych aplikacji.
  11. ' ------------------------------------------------------------------------
  12. '
  13. ' Ten przyk│ad demonstruje w jaki spos≤b u┐ywaµ obiektu WshShell
  14. ' w celu utworzenia skr≤tu na pulpicie
  15.  
  16.  
  17. L_Welcome_MsgBox_Message_Text   = "Ten skrypt tworzy na pulpicie skr≤t do programu Notatnik."
  18. L_Welcome_MsgBox_Title_Text     = "Przyk│adowy skrypt dla Hosta skrypt≤w systemu Window"
  19. Call Welcome()
  20.  
  21. ' ********************************************************************************
  22. ' *
  23. ' * Metody powi╣zane ze skr≤tami.
  24. ' *
  25.  
  26. Dim WSHShell
  27. Set WSHShell = WScript.CreateObject("WScript.Shell")
  28.  
  29.  
  30. Dim MyShortcut, MyDesktop, DesktopPath
  31.  
  32. ' Odczytanie £cie┐ki przy u┐yciu obiektu WshSpecialFolders
  33. DesktopPath = WSHShell.SpecialFolders("Desktop")
  34.  
  35. ' Utworzenie obiektu skr≤tu na pulpicie
  36. Set MyShortcut = WSHShell.CreateShortcut(DesktopPath & "\Skr≤t do Notatnik.lnk")
  37.  
  38. ' Ustaw w│a£ciwo£ci obiektu shortcut i zapisz je
  39. MyShortcut.TargetPath = WSHShell.ExpandEnvironmentStrings("%windir%\notepad.exe")
  40. MyShortcut.WorkingDirectory = WSHShell.ExpandEnvironmentStrings("%windir%")
  41. MyShortcut.WindowStyle = 4
  42. MyShortcut.IconLocation = WSHShell.ExpandEnvironmentStrings("%windir%\notepad.exe, 0")
  43. MyShortcut.Save
  44.  
  45. WScript.Echo "Skr≤t do programu Notatnik zosta│ umieszczony na twoim pulpicie."
  46.  
  47. ' ********************************************************************************
  48. ' *
  49. ' * Witamy
  50. ' *
  51. Sub Welcome()
  52.     Dim intDoIt
  53.  
  54.     intDoIt =  MsgBox(L_Welcome_MsgBox_Message_Text,    _
  55.                       vbOKCancel + vbInformation,       _
  56.                       L_Welcome_MsgBox_Title_Text )
  57.     If intDoIt = vbCancel Then
  58.         WScript.Quit
  59.     End If
  60. End Sub
  61.