VB.Net by API/System.Diagnostics/FileVersionInfo
Содержание
FileVersionInfo.CompanyName
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
FileVersionInfo.GetVersionInfo
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
FileVersionInfo.Language
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
FileVersionInfo.OriginalFilename
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
FileVersionInfo.SpecialBuild
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