Új hozzászólás Aktív témák
-
cigam
titán
válasz
kemkriszt98
#753
üzenetére
Mac elött ücsörgök, nem tudom kipróbálni, de ez a videó tuti segít.
Ha kitörlöd azt, hogy mire mutasson a shortcut, naná, hogy nem mutat sehova.
-
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 -
cigam
titán
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
-
cigam
titán
válasz
kemkriszt98
#747
üzenetére
Mert az mklink nem shorcut-ot hoz létre egy programról, hanem szimbolikus hivatkozást. A kettő nem ugyanaz.
Viszont egy kis vbs scriptel megoldható.
Új hozzászólás Aktív témák
- Sok hűhó négyszázért: AMD Ryzen 7 9850X3D
- Új kezdeményezéssel pofoznák ki a Linuxot a játékosoknak
- One otthoni szolgáltatások (TV, internet, telefon)
- Okos Otthon / Smart Home
- Melyik tápegységet vegyem?
- Milyen cserélhető objektíves gépet?
- RETRO beárazás (mobil, PC, konzol)
- Ford topik
- Brave
- OLED TV topic
- További aktív témák...
- Samsung Galaxy A54 8/128 GB 6 hónap Garancia Beszámítás Házhozszállítás
- SK Hynix vagy Samsung 32GB DDR4 2666MHz PC4-21300 laptop RAM
- Egyedi ékszerdobozka
- HIBÁTLAN iPhone 11 128GB Black -1 ÉV GARANCIA - Kártyafüggetlen, MS4411, 100% Akksi
- iPhone 16 Pro 128GB Desert Titanium -1 ÉV GARANCIA - Kártyafüggetlen
Állásajánlatok
Cég: Central PC számítógép és laptop szerviz - Pécs
Város: Pécs
Cég: Laptopműhely Bt.
Város: Budapest

