Rubrik: Dateisystem · Dateien - allgemein | VB-Versionen: VB.NET | 03.04.07 |
Versionsinformationen einer Datei ermitteln (.NET) Dieser Tipp zeigt, wie man die exakte Versionsnummer, sowie weitere Versionsinformationen einer Datei ermitteln kann. | ||
Autor: Dieter Otter | Bewertung: | Views: 12.139 |
www.tools4vb.de | System: WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Im Gegensatz zu VB6, wo man Versionsinformationen einer Datei nur umständlich per Windows-API Funktionen ermitteln konnte, lässt sich das Ganze unter VB.NET sehr viel einfacher und mit minimalen Aufwand realisieren.
Erstellen Sie ein neues Windows-Form Projekt und platzieren folgende Steuerelemente auf die Form:
- Button (btnFile)
- Label (lblVersion)
- Label (lblMajor)
- Label (lblMinor)
- Label (lblBuild)
- Label (lblDescription)
- Label (lblCompany)
- Label (lblCopyright)
Fügen Sie nachfolgende Code in den Codeteil der Form ein:
Imports System.IO ...
Private Sub btnFile_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles btnFile.Click ' Datei auswählen With New OpenFileDialog .Filter = "*.exe;*.dll;*.tlb;*.ocx|*.exe;*.dll;*.tlb;*.ocx" If .ShowDialog() = Windows.Forms.DialogResult.OK Then ' Versionsinformationen der Datei ermitteln und anzeigen Try With FileVersionInfo.GetVersionInfo(.FileName) lblVersion.Text = "Version: " & .FileVersion lblMajor.Text = "Major: " & .FileMajorPart.ToString lblMinor.Text = "Minor: " & .FileMinorPart.ToString lblBuild.Text = "Build: " & .FileBuildPart.ToString lblDescription.Text = "Description: " & .FileDescription lblCompany.Text = "Company: " & .CompanyName lblCopyright.Text = "Copyright: " & .LegalCopyright End With Catch ex As Exception ' Fehler beim Zugriff auf die Datei MsgBox("Fehler...") End Try End If End With End Sub