一样的,试试: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
' 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
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货