Imports System
Imports System.Diagnostics
Public Module modmain
   Sub Main()
      'The KPD-Team 2001
      'URL: http://www.allapi.net/dotnet/
      'E-Mail: KPDTeam@Allapi.net
      Dim versionInfo As FileVersionInfo = FileVersionInfo.GetVersionInfo("D:\WINNT\Notepad.exe")
      Console.WriteLine("Notepad version " + versionInfo.FileVersion)
      Console.WriteLine("Description: " + versionInfo.FileDescription)
   End Sub
End Module

Close this window