FileVersionInfo.GetVersionInfo
Imports System Imports System.IO Imports System.Data Imports System.Drawing Imports System.Diagnostics Imports System.ComponentModel 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.Comments) Console.WriteLine(m_File.CompanyName) 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
1. | FileVersionInfo.CompanyName | ||
2. | FileVersionInfo.Language | ||
3. | FileVersionInfo.OriginalFilename | ||
4. | FileVersionInfo.SpecialBuild |