blob: f1e28f1e51aff9d67efd5745f6594b13dcbe9d06 (
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:\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.Save
|
