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

• #750 cigam titán kemkriszt98 #749

  Új Válasz 2016-01-12 17:01:50 #750

  Ú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

  LOGOUT blog

  válasz kemkriszt98 #749 üzenetére

  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