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

• cigam titán

  #750

  #749 kemkriszt98

  2016-01-12 17:01:50

  Új Válasz

  Ú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

  

  cigam

  titán

  #749 kemkriszt98

  #749 kemkriszt98

  Na ez már majdnem sikerült
  1. Ezt meg lehet oldani, úgyis, hogy csak maga a vbs legyen? Bemásoltam az argumentumos dolgok helyére az elérési útvonalat amire az hibát adott ki miszerint nem menthető a shortcut... Ebből arra következtetek, hogy ezt %userprofile% a vbs ben nem használhatom.
  2. Ekkor írtam egy rövid kis batch fájlt

  cscript copy_sch.vbs /target:"a.txt" /shortcut:"%userprofile%\Start Menu\Programs\Startup\a.txt"

  Ez elsőre működött (Akkor ugyan abba a mappába másoltam, viszont most ha meg akarom nyitni a shortcutot akkor azt a hibaüzenetet kapom, hogy az eredeti fájl hiányzik

  Dim fso, wshShell, strUserProfile
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set wshShell = CreateObject("WScript.Shell")

  'ezz a lényege, itt kéri le a felhasználói profil elérési útját
  strUserProfile = wshShell.ExpandEnvironmentStrings("%USERPROFILE%")

  fso.CopyFile "c:\innen\masolom\program.lnk", strUserProfile

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