Új hozzászólás Aktív témák

• #752 cigam titán kemkriszt98 #751

  Új Válasz 2016-01-12 17:43:08 #752

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  cigam

  titán

  válasz kemkriszt98 #751 üzenetére

  A kettőből kell 1et faragni, vhogy így:

  set WshShell = WScript.CreateObject("WScript.Shell" )
  strUserProfile = WshShell.ExpandEnvironmentStrings("%USERPROFILE%")
  set oShellLink = WshShell.CreateShortcut(Wscript.Arguments.Named(strUserProfile & "\Start Menu\Programs\Startup\a.tx") & ".lnk")
  oShellLink.TargetPath = Wscript.Arguments.Named("a.txt")
  oShellLink.WindowStyle = 1
  oShellLink.Save

Új hozzászólás Aktív témák