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