[@@أبورائد@@]

السلام عليكم ورحمة الله وبركاته

تفضل

كود :

Private Function GetFileVersion(ByVal filename As String) As String
    Dim myFileVersionInfo As FileVersionInfo = FileVersionInfo.GetVersionInfo(filename)
    Return myFileVersionInfo.FileVersion.Trim.Split(" ")(0)
End Function

السلام عليكم ورحمة الله وبركاته