Initial commit

Author: OlimilO1402

.gitattributes

@@ -0,0 +1,47 @@
+# Set the default behavior, in case people don't have core.autocrlf set.
+# Auto detect text files and perform LF normalization
+* text=auto
+
+# Explicitly declare text files you want to always be normalized and converted
+# to native line endings on checkout.
+# none
+
+# Declare files that will always have CRLF line endings on checkout.
+*.frm text eol=crlf
+*.cls text eol=crlf
+*.bas text eol=crlf
+*.ctl text eol=crlf
+*.vbp text eol=crlf
+*.vbw text eol=crlf
+*.mak text eol=crlf
+*.vbg text eol=crlf
+*.vb  text eol=crlf
+*.cs  text eol=crlf
+*.rc  text eol=crlf
+*.txt text eol=crlf
+*.bat text eol=crlf
+*.scc text eol=crlf
+*.ps1 text eol=crlf
+*.h   text eol=crlf
+*.manifest text eol=crlf
+*.html text eol=crlf
+
+# Denote all files that are truly binary and should not be modified.
+*.frx binary
+*.png binary
+*.jpg binary
+*.bmp binary
+*.ico binary
+*.zip binary
+*.dll binary
+*.exe binary
+*.ocx binary
+*.tlb binary
+*.res binary 
+*.exp binary
+*.lib binary
+*.xls binary
+*.xlsm binary
+*.doc binary
+*.docx binary 
+*.syx binary

.gitignore

@@ -0,0 +1,9 @@
+# Exclude binary files
+*.exe
+*.dll
+*.ocx
+*.zip
+
+# Exclude user-specific files
+*.vbw
+Thumbs.db

Classes/FileVersionInfo.cls

@@ -0,0 +1,87 @@
+VERSION 5.00
+Begin VB.Form Form1 
+   Caption         =   "Form1"
+   ClientHeight    =   6015
+   ClientLeft      =   60
+   ClientTop       =   450
+   ClientWidth     =   7695
+   LinkTopic       =   "Form1"
+   ScaleHeight     =   6015
+   ScaleWidth      =   7695
+   StartUpPosition =   3  'Windows-Standard
+   Begin VB.CommandButton BtnFileVersion 
+      Caption         =   "GetVersionInfo"
+      Height          =   375
+      Left            =   0
+      TabIndex        =   2
+      Top             =   120
+      Width           =   1575
+   End
+   Begin VB.TextBox TxtFileVersionInfo 
+      BeginProperty Font 
+         Name            =   "Consolas"
+         Size            =   9.75
+         Charset         =   0
+         Weight          =   400
+         Underline       =   0   'False
+         Italic          =   0   'False
+         Strikethrough   =   0   'False
+      EndProperty
+      Height          =   5415
+      Left            =   0
+      MultiLine       =   -1  'True
+      ScrollBars      =   3  'Beides
+      TabIndex        =   1
+      Top             =   600
+      Width           =   7695
+   End
+   Begin VB.TextBox TxtFileName 
+      Height          =   285
+      Left            =   1560
+      TabIndex        =   0
+      Top             =   120
+      Width           =   6135
+   End
+End
+Attribute VB_Name = "Form1"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = False
+Option Explicit
+Private FileVersionInfo As New FileVersionInfo
+
+Private Sub Form_Load()
+    TxtFileName.Text = "C:\Windows\System32\kernel32.dll"
+End Sub
+
+Private Sub BtnFileVersion_Click()
+Try: On Error GoTo Catch
+    Dim VI As FileVersionInfo: Set VI = MNew.FileVersionInfo(TxtFileName.Text)
+    TxtFileVersionInfo.Text = VI.ToStr
+    Exit Sub
+Catch:
+    MsgBox ("Probably file not found")
+End Sub
+
+Private Sub Form_Resize()
+    Dim L As Single, T As Single, W As Single, H As Single
+    Dim Brdr As Single ': Brdr = 8 * 15
+    L = TxtFileName.Left
+    T = TxtFileName.Top
+    W = Form1.ScaleWidth - Brdr - L
+    H = TxtFileName.Height
+    If ((W > 0) And (H > 0)) Then Call TxtFileName.Move(L, T, W, H)
+    L = TxtFileVersionInfo.Left
+    T = TxtFileVersionInfo.Top
+    W = Form1.ScaleWidth - Brdr - L
+    H = Form1.ScaleHeight - Brdr - T
+    If ((W > 0) And (H > 0)) Then Call TxtFileVersionInfo.Move(L, T, W, H)
+End Sub
+
+Private Sub TxtFileName_KeyUp(KeyCode As Integer, Shift As Integer)
+    If KeyCode = vbEnter Then
+        BtnFileVersion_Click
+    End If
+End Sub
+