一样的,试试:Public Sub GetFileVersion()
    ' Get the file version for the notepad.
    Dim myFileVersionInfo As FileVersionInfo = FileVersionInfo.GetVersionInfo("%systemroot%\Notepad.exe")
    
    ' Print the file name and version number.
    textBox1.Text = "File: " & myFileVersionInfo.FileDescription & ControlChars.Cr & _
        "Version number: " & myFileVersionInfo.FileVersion
End Sub 'GetFileVersion