Note that there are some explanatory texts on larger screens.

plurals
  1. PO
    text
    copied!<p>Sure, you can give the mode parameters like this, i commented out your parameters but you can add them also.</p> <pre><code>Set WshShell = WScript.CreateObject("WScript.Shell") strDesktop = WshShell.SpecialFolders("Desktop") set oMyShortcut = WshShell.CreateShortcut(strDesktop &amp; "\ShortcutScript.lnk") oMyShortcut.WindowStyle = 4 oMyShortcut.TargetPath = "%windir%\system32\cmd.exe" 'oMyShortCut.Arguments= "/K """ &amp; strProjectHome &amp; "\" &amp; strSetenvPath &amp; """" oMyShortCut.Arguments= "/K mode con:cols=150 lines=40" oMyShortCut.WorkingDirectory= strProjectHome oMyShortcut.IconLocation = "%windir%\system32\cmd.exe" oMyShortcut.Description = "Shell for project " + strProjectName + " in directory " + strDirname +". This shortcut has been created automatically." oMyShortCut.Save </code></pre> <p>This gives a nice wide console screen when you double click the shortcut</p> <p>The only way i found to change the font is by manually changing it once on a shortcut and then use that as a template, copy it and then change the other parameters. Changing a shortcus is the same way as opening it, so </p> <pre><code>Set WshShell = WScript.CreateObject("WScript.Shell") strDesktop = WshShell.SpecialFolders("Desktop") set oMyShortcut = WshShell.CreateShortcut(strDesktop &amp; "\ShortcutScript.lnk") oMyShortCut.Arguments= "/K mode con:cols=80 lines=40" oMyShortCut.Save </code></pre> <p>sets our shortcutfile from above in 80 cols instead of the original 120 cols.</p>
 

Querying!

 
Guidance

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload