Displaying 1 result from an estimated 1 matches for "makedesktopshortcut".
2007 Mar 19
1
error running a vb script in wine
...\Notepad.exe" "U:\some_directory"
'TODO: Add some error checking (currently none since I don't know how
in VBScript)
Dim WSHShell, fs
Set WSHShell = WScript.CreateObject("WScript.Shell")
Set fs = WScript.CreateObject("Scripting.FileSystemObject")
Function MakeDesktopShortcut( name, target, shortcut_location )
Dim Shortcut,StartupPath
Set Shortcut = WSHShell.CreateShortcut(shortcut_location & "\" & name
& ".lnk")
Shortcut.TargetPath = target
StartupPath = fs.GetParentFolderName( target )
If fs.FolderExists( StartupPath ) then
Shortcut.Wor...