파일의 버젼 정보는, System.Diagnostics.FileVersionInfo 클래스로부터 취득합니다. 이 클래스의 인스턴스를 생성하려면 , GetVersionInfo 메소드를 사용합니다.

'지정한 파일의 버젼 정보를 취득한다
Dim hVerInfo As System.Diagnostics.FileVersionInfo = ( _
System.Diagnostics.FileVersionInfo.GetVersionInfo("C: \WINDOWS\Notepad.exe") _
)
Dim stNewLine As String = System.Environment.NewLine
Dim stPrompt As String = String.Empty
'파일까지의 패스
stPrompt &= "파일명: " & hVerInfo.FileName & stNewLine
'파일의 설명(AssemblyTitle)
stPrompt &= "파일의 설명: " & hVerInfo.FileDescription & stNewLine
'코멘트(AssemblyDescription)
stPrompt &= "코멘트: " & hVerInfo.Comments & stNewLine
'회사명(AssemblyCompany)
stPrompt &= "회사명: " & hVerInfo.CompanyName & stNewLine
'제품명(AssemblyProduct)
stPrompt &= "제품명: " & hVerInfo.ProductName & stNewLine
'저작권(AssemblyCopyright)
stPrompt &= "저작권: " & hVerInfo.LegalCopyright & stNewLine
'상표(AssemblyTrademark)
stPrompt &= "상표: " & hVerInfo.LegalTrademarks & stNewLine
'정식 파일명(어셈블리명)
stPrompt &= "정식 파일명: " & hVerInfo.OriginalFilename & stNewLine
'내부명
stPrompt &= "내부명: " & hVerInfo.InternalName & stNewLine
'언어
stPrompt &= "언어: " & hVerInfo.Language & stNewLine
'파일의 버젼 정보
stPrompt &= "파일의 버젼 번호: " & hVerInfo.FileVersion & stNewLine
stPrompt &= "파일의 메이저 번호: " & hVerInfo.FileMajorPart & stNewLine
stPrompt &= "파일의 마이나 번호: " & hVerInfo.FileMinorPart & stNewLine
stPrompt &= "파일의 빌드 번호: " & hVerInfo.FileBuildPart & stNewLine
stPrompt &= "파일의 프라이빗 번호: " & hVerInfo.FilePrivatePart & stNewLine
'제품의 버젼 정보
stPrompt &= "제품의 버젼 번호: " & hVerInfo.ProductVersion & stNewLine
stPrompt &= "제품의 메이저 번호: " & hVerInfo.ProductMajorPart & stNewLine
stPrompt &= "제품의 마이나 번호: " & hVerInfo.ProductMinorPart & stNewLine
stPrompt &= "제품의 빌드 번호: " & hVerInfo.ProductBuildPart & stNewLine
stPrompt &= "제품의 프라이빗 번호: " & hVerInfo.ProductPrivatePart & stNewLine
'빌드 정보
stPrompt &= "프라이빗 빌드 정보: " & hVerInfo.PrivateBuild & stNewLine
stPrompt &= "특수 빌드 정보: " & hVerInfo.SpecialBuild & stNewLine
'그 외의 정보
stPrompt &= "디버그 정보를 격납할까: " & hVerInfo.IsDebug & stNewLine
stPrompt &= "개발 버젼(프레리리스)인가: " & hVerInfo.IsPreRelease & stNewLine
stPrompt &= "파일이 변경되고 있을까: " & hVerInfo.IsPatched & stNewLine
stPrompt &= "표준 릴리스 프로시저로 생성되었는지: " & hVerInfo.IsPrivateBuild & stNewLine
stPrompt &= "특수 빌드인지 어떤지: " & hVerInfo.IsSpecialBuild & stNewLine
'취득한 모든 버젼 정보를 표시한다
MessageBox.Show(stPrompt)

 

+ Recent posts