8,484
edits
Paradox-01 (talk | contribs)  (cleaning MT main page later when all the script pieces have been transfered over here)  | 
				Paradox-01 (talk | contribs)   (more snippets)  | 
				||
| Line 31: | Line 31: | ||
  ' for 32-bit    |   ' for 32-bit    | ||
  ' INFO : nt-x86\  |   ' INFO : nt-x86\  | ||
====Directories====  | |||
 ' this can be useful for default locations like when selecting a folder  | |||
 DesktopPath = CreateObject("WScript.Shell").SpecialFolders("Desktop")  | |||
 logmessage DesktopPath  | |||
====Message box====  | |||
 ' okay-only  | |||
 msgbox "message", 0, "title"  | |||
 ' okay and cancel  | |||
 MyVar = msgbox ("message", 1, "title")  | |||
 if MyVar = 1 then  | |||
 	logmessage "OK button clicked"  | |||
 	logmessage MyVar ' = 1  | |||
 else  | |||
 	logmessage "Cancel button clicked"  | |||
 	logmessage MyVar ' = 2  | |||
 end if  | |||
====Input box====  | |||
 MyVar = inputbox ("message", "title" , "pre-entered content")  | |||
 if MyVar = false then  | |||
 	logmessage "Cancel button clicked"  | |||
 else  | |||
 	logmessage "OK button clicked"  | |||
 	logmessage MyVar  | |||
 end if  | |||
====Check executable version====  | |||
 ' taking OniSplit as example  | |||
 Set objFSO = CreateObject("Scripting.FileSystemObject")  | |||
 logmessage objFSO.GetFileVersion("F:\Program Files (x86)\Oni\Edition\install\onisplit.exe")  | |||
 ' result looks like this:  | |||
 ' INFO : 0.9.59.0  | |||
edits