11-10-13, 10:02 AM
11-10-13, 02:06 PM
السلام عليكم ورحمة الله وبركاته
تفضل
السلام عليكم ورحمة الله وبركاته
تفضل
كود :
Private Function GetFileVersion(ByVal filename As String) As String
Dim myFileVersionInfo As FileVersionInfo = FileVersionInfo.GetVersionInfo(filename)
Return myFileVersionInfo.FileVersion.Trim.Split(" ")(0)
End Functionالسلام عليكم ورحمة الله وبركاته
11-10-13, 02:40 PM
جزاك الله خيرا حبيبى ابو رائد
وجعلها الله فى موازين حسناتك
كان الله فى عونك
وجعلها الله فى موازين حسناتك
كان الله فى عونك