VB Script - set variables for CMM-Manager File Path and Version

VB Script - set variables for CMM-Manager File Path and Version

It is possible to set variable for CMM-Manager file-path and/or version number.  This variable could then be displayed in Report Header, Report User Note, or simply displayed for user as MsgBox() during program running.

The GetAbsolutePathName() method can be used to find the File Path of currently running CMM-Manager application.  Once path is known the GetFileVersion() function is used to get file version details.  The complete VB Script below can be added to CMM-Manager Program, the end result is VB Variables CurrentPath and CMMMgrVersion that contain file-path and file version respectively.

Example MsgBox() that displays info about file-path and version for currently running CMM-Manager
application.










  1. Dim FSO
  2. Set fso = CreateObject("Scripting.FileSystemObject")
  3. CurrentFolder= FSO.GetAbsolutePathName(".")
  4. CurrentPath = CurrentFolder + "\CMMMgr.exe"

  6. 'fallback - in case VB Engine does not find CMMMgr.exe successfully
  7. If FSO.FileExists(CurrentPath) Then
  8. Else
  9.   MyMsg = MsgBox("Could not find CMM-Manager filepath" & Chr(13) & "Please locate CMMMgr.exe manually", 16)
  10.   Set objWShell = CreateObject("WScript.Shell")
  11.   Set ChooseFile = objWShell.Exec( "mshta.exe ""about: <input type=file id=X><script>X.click();new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).WriteLine(X.value);close();resizeTo(0,0);</script>""" )
  12.   CurrentPath = ChooseFile.StdOut.ReadAll
  13.   ChrPos = InStr(CurrentPath, Chr(13))
  14.   ChrPos = ChrPos -1
  15.   CurrentPath = Left(CurrentPath, ChrPos)  
  16. End If

  18. CMMMgrVersion = FSO.GetFileVersion(CurrentPath)
  19. MsgBox("CMM-Manager Path:"& Chr(13) & CurrentPath & Chr(13) & "CMM-Manager Version: " & CMMMgrVersion) 


In case the FSO.GetAbsolutePathName(".") does not return a valid path, there is a fallback that allows user to select CMMMgr.exe manually as shown below:





Idea
It's also possible to pick a file folder.  Depending on the application, it may useful to specify a folder vs. a file.
VB Script looks like this:
  1. Dim objFolder, objShell
  2. Set objShell = CreateObject("Shell.Application")
  3. Set objFolder = objShell.BrowseForFolder(0, "Please select the folder.", 1, "")

  5. MyFolder = objFolder.Self.path

  7. MsgBox("You picked the folder:" + Chr(10) + MyFolder)





IdeaRemember - any VB Variable can be saved to Report Header or Report User Notes