by Lajili Houssem (6 Submissions)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Mon 11th February 2002
Date Added: Mon 8th February 2021
Rating:
(1 Votes)
Create a shortcut or .lnk file.
Set WSHShell = CreateObject("WScript.Shell")
Set f = WSHShell.CreateShortcut(lnk_name & ".lnk")
f.TargetPath = target
f.WorkingDirectory = work_dir
f.WindowStyle = Window_style
If icon_file <> "none" Then f.IconLocation = WSHShell.ExpandEnvironmentStrings(icon_file & ", " & icon_index)
f.Save
End Sub