Mega Code Archive
FileVersionInfo OriginalFilename
<![CDATA[
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
]]>