Displaying 1 result from an estimated 1 matches for "startuppath".
Did you mean:
start_path
2007 Mar 19
1
error running a vb script in wine
...e 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.WorkingDirectory = StartupPath
End If
Shortcut.Save
End Functio...