blob: bd2ee4d16db15307cc2859c200aeaafefcca556d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
'
' Copy to destination
'
'dim fso
'set fso = CreateObject("Scripting.FileSystemObject")
'fso.CopyFolder "..\WZSE0.TMP","c:\SAOImageDS9",True
'
' Create a ds9 shortcut on the Desktop
'
set WshShell = CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
set oMyShortCut= WshShell.CreateShortcut(strDesktop+"\SAOImageDS9.lnk")
oMyShortCut.WindowStyle = 7
oMyShortCut.TargetPath = "c:\SAOImageDS9\ds9.exe"
oMyShortCut.WorkingDirectory = "c:\SAOImageDS9"
oMyShortCut.Save
|