Conan_Kudo / build / midipix_build

Forked from build/midipix_build 4 years ago
Clone

Blame Create `Midipix mintty shell' shortcut.vbs

Lucio Andrés Illanes Albornoz (arab, vxp) 92d6c5
Set WshShell = CreateObject("WScript.Shell")
Lucio Andrés Illanes Albornoz (arab, vxp) 92d6c5
If WScript.Arguments.Count = 0 Then
Lucio Andrés Illanes Albornoz (arab, vxp) 792796
	CygwinPath = "C:\cygwin64"
Lucio Andrés Illanes Albornoz (arab, vxp) 92d6c5
Else
Lucio Andrés Illanes Albornoz (arab, vxp) 792796
	CygwinPath = WScript.Arguments(0)
Lucio Andrés Illanes Albornoz (arab, vxp) 92d6c5
End If
Lucio Andrés Illanes Albornoz (arab, vxp) 92d6c5
Set fso = CreateObject("Scripting.FileSystemObject")
Lucio Andrés Illanes Albornoz (arab, vxp) 792796
Set oMyShortCut = WshShell.CreateShortcut(WshShell.CurrentDirectory + "\Midipix shell.lnk")
Lucio Andrés Illanes Albornoz (arab, vxp) 792796
oMyShortCut.Arguments = "midipix.sh"
Lucio Andrés Illanes Albornoz (arab, vxp) 792796
oMyShortcut.IconLocation = CygwinPath + "\Cygwin-Terminal.ico"
Lucio Andrés Illanes Albornoz (arab, vxp) 792796
oMyShortCut.TargetPath = CygwinPath + "\bin\sh.exe"
Lucio Andrés Illanes Albornoz (arab, vxp) 792796
oMyShortCut.WindowStyle = 4
Lucio Andrés Illanes Albornoz (arab, vxp) 792796
oMyShortCut.WorkingDirectory = WshShell.CurrentDirectory
Lucio Andrés Illanes Albornoz (arab, vxp) 792796
oMyShortCut.Save