Shared Function _ FindExecutable(ByVal fileName As String, ByVal fileDir As String, _ ByVal buffer As System.Text.StringBuilder) As IntegerEnd Function' Returns the name and path of the EXEcutable file that is associated to the ' specified file.' Returns an empty string if there is no such associated file,' and raises an error if the file or the path hasn't been found.' ' Example: Debug.WriteLine(GetExecutableFile("D: empDb.mdb"))Public Function GetExecutableFile(ByVal filePath As String) As String Const ERROR_FILE_NO_ASSOCIATION = 31& Const ERROR_FILE_NOT_FOUND = 2& Const ERROR_PATH_NOT_FOUND = 3& Const ERROR_FILE_SUCCESS = 32& Dim buffer As New System.Text.StringBuilder(260) ' call the FindExecutable API function and process the return value Select Case FindExecutable(System.IO.Path.GetFileName(filePath), _ System.IO.Path.GetDirectoryName(filePath), buffer) Case ERROR_FILE_NOT_FOUND, ERROR_PATH_NOT_FOUND Throw New System.IO.FileNotFoundException() Case ERROR_FILE_NO_ASSOCIATION Return "" Case Is >= ERROR_FILE_SUCCESS ' extract the ANSI string that contains the name of the associated ' executable file Return buffer.ToString() End SelectEnd Function


GM Creates Open Source uProtocol and Invites Automakers to Adopt It: Revolutionizing Automotive Software Development.
General Motors (GM) recently announced its entry into the Eclipse Foundation. The Eclipse Foundation is a prominent open-source software foundation. In addition, GMC announced its contribution of “uProtocol” to facilitate