VB.Net by API/System.Diagnostics/FileVersionInfo

Материал из VB Эксперт
Перейти к: навигация, поиск

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
Источник — «http://vbex.ru/index.php?title=VB.Net_by_API/System.Diagnostics/FileVersionInfo&oldid=2426»