For create shortcut using .vbs files, I've created this small script: Code: Dim FileName FileName = "MyShortcut" Set shortcut = CreateObject("WScript.Shell").CreateShortcut(CreateObject("WScript.Shell").SpecialFolders("Desktop") & + "\" + FileName + ".lnk") shortcut.Description = "My shortcut" shortcut.TargetPath = "C:\My Shortcut" shortcut.Arguments = "/Arguments:Shortcut" shortcut.Save Very useful for installers / manual .lnk insertion
Doesnt work I tryed that... It looks like its working exept that It gives an error for shortcut.Description shortcut.TargetPath shortcut.Arguments shortcut.Save, It doent know what they are. If you could help me that would be great.
[h=2]http://91.68.211.12/bmi/forums.mydigitallife.net/images/icons/icon1.png Hi[/h]Works for me, ran from desktop all ok
Code: Dim FileName FileName = "C:\Program Files\NFSUndercover\speed.exe" Set shortcut = CreateObject("WScript.Shell").CreateShortcut(CreateObject("WScript.Shell").SpecialFolders("Desktop") & + "\" + FileName + ".lnk") shortcut.Description = "My shortcut" shortcut.TargetPath = "C:\My Shortcut" shortcut.Arguments = "/Arguments:Shortcut" shortcut.Save Works well here...