Hirdetés
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Óraátállítás
- gban: Ingyen kellene, de tegnapra
- sziku69: Szólánc.
- Luck Dragon: MárkaLánc
- Luck Dragon: Asszociációs játék. :)
- Rap, Hip-hop 90'
- MasterDeeJay: RAM gondolatok: Mennyi a minimum? DDR3 is jó?
- hcl: Könnyű légierő
- D1Rect: Nagy "hülyétkapokazapróktól" topik
Ú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
- Realme GT 8 Pro Urban Blue 16/512GB MediaMarkt garancia 2029.02.02.-ig
- Eladó ÚJ - KIOXIA - 256GB M.2 SSD nagy mennyiségben (13db maradt)
- AKCIÓ! Dell XPS 13 9305 13 FHD üzleti notebook -i5 1135G7 8GB DDR4 512GB SSD Intel IRIS XE W11
- Samsung Galaxy Tab A8 / 32GB /Kártyafüggetlen / 12 Hó Garancia
- LG 27GR93U-B - 27" IPS - UHD 4K - 144Hz 1ms - NVIDIA G-Sync - FreeSync Premium - HDR 400
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
