VB.Net by API/System.Diagnostics/FileVersionInfo
Содержание
FileVersionInfo.CompanyName
<source lang="vbnet"> Imports System Imports System.IO Imports System.Data Imports System.Drawing Imports System.Diagnostics Imports System.ruponentModel
Public Class Tester
Public Shared Sub Main Dim m_File As FileVersionInfo m_File = FileVersionInfo.GetVersionInfo("c:\\test.txt") Console.WriteLine(m_File.FileName) Console.WriteLine(m_File.FileName.Substring(m_File.FileName.LastIndexOf("\") + 1)) Console.WriteLine(m_File.ruments) Console.WriteLine(m_File.rupanyName) Console.WriteLine(m_File.FileVersion) Console.WriteLine(m_File.ProductVersion) Console.WriteLine(m_File.ProductName) Console.WriteLine(m_File.FilePrivatePart) Console.WriteLine(m_File.FileDescription) Console.WriteLine(m_File.Language) Console.WriteLine(m_File.LegalTrademarks) Console.WriteLine(m_File.OriginalFilename) Console.WriteLine(m_File.SpecialBuild) End Sub
End Class
</source>
FileVersionInfo.GetVersionInfo
<source lang="vbnet"> Imports System Imports System.IO Imports System.Data Imports System.Drawing Imports System.Diagnostics Imports System.ruponentModel
Public Class Tester
Public Shared Sub Main Dim m_File As FileVersionInfo m_File = FileVersionInfo.GetVersionInfo("c:\\test.txt") Console.WriteLine(m_File.FileName) Console.WriteLine(m_File.FileName.Substring(m_File.FileName.LastIndexOf("\") + 1)) Console.WriteLine(m_File.ruments) Console.WriteLine(m_File.rupanyName) Console.WriteLine(m_File.FileVersion) Console.WriteLine(m_File.ProductVersion) Console.WriteLine(m_File.ProductName) Console.WriteLine(m_File.FilePrivatePart) Console.WriteLine(m_File.FileDescription) Console.WriteLine(m_File.Language) Console.WriteLine(m_File.LegalTrademarks) Console.WriteLine(m_File.OriginalFilename) Console.WriteLine(m_File.SpecialBuild) End Sub
End Class
</source>
FileVersionInfo.Language
<source lang="vbnet"> Imports System Imports System.IO Imports System.Data Imports System.Drawing Imports System.Diagnostics Imports System.ruponentModel
Public Class Tester
Public Shared Sub Main Dim m_File As FileVersionInfo m_File = FileVersionInfo.GetVersionInfo("c:\\test.txt") Console.WriteLine(m_File.FileName) Console.WriteLine(m_File.FileName.Substring(m_File.FileName.LastIndexOf("\") + 1)) Console.WriteLine(m_File.ruments) Console.WriteLine(m_File.rupanyName) Console.WriteLine(m_File.FileVersion) Console.WriteLine(m_File.ProductVersion) Console.WriteLine(m_File.ProductName) Console.WriteLine(m_File.FilePrivatePart) Console.WriteLine(m_File.FileDescription) Console.WriteLine(m_File.Language) Console.WriteLine(m_File.LegalTrademarks) Console.WriteLine(m_File.OriginalFilename) Console.WriteLine(m_File.SpecialBuild) End Sub
End Class
</source>
FileVersionInfo.OriginalFilename
<source lang="vbnet"> Imports System Imports System.IO Imports System.Data Imports System.Drawing Imports System.Diagnostics Imports System.ruponentModel
Public Class Tester
Public Shared Sub Main Dim m_File As FileVersionInfo m_File = FileVersionInfo.GetVersionInfo("c:\\test.txt") Console.WriteLine(m_File.FileName) Console.WriteLine(m_File.FileName.Substring(m_File.FileName.LastIndexOf("\") + 1)) Console.WriteLine(m_File.ruments) Console.WriteLine(m_File.rupanyName) Console.WriteLine(m_File.FileVersion) Console.WriteLine(m_File.ProductVersion) Console.WriteLine(m_File.ProductName) Console.WriteLine(m_File.FilePrivatePart) Console.WriteLine(m_File.FileDescription) Console.WriteLine(m_File.Language) Console.WriteLine(m_File.LegalTrademarks) Console.WriteLine(m_File.OriginalFilename) Console.WriteLine(m_File.SpecialBuild) End Sub
End Class
</source>
FileVersionInfo.SpecialBuild
<source lang="vbnet"> Imports System Imports System.IO Imports System.Data Imports System.Drawing Imports System.Diagnostics Imports System.ruponentModel
Public Class Tester
Public Shared Sub Main Dim m_File As FileVersionInfo m_File = FileVersionInfo.GetVersionInfo("c:\\test.txt") Console.WriteLine(m_File.FileName) Console.WriteLine(m_File.FileName.Substring(m_File.FileName.LastIndexOf("\") + 1)) Console.WriteLine(m_File.ruments) Console.WriteLine(m_File.rupanyName) Console.WriteLine(m_File.FileVersion) Console.WriteLine(m_File.ProductVersion) Console.WriteLine(m_File.ProductName) Console.WriteLine(m_File.FilePrivatePart) Console.WriteLine(m_File.FileDescription) Console.WriteLine(m_File.Language) Console.WriteLine(m_File.LegalTrademarks) Console.WriteLine(m_File.OriginalFilename) Console.WriteLine(m_File.SpecialBuild) End Sub
End Class
</source>