【VB.NET】自分自身のファイルバージョンを取得する

　プログラムファイル(.EXE)をエクスプローラで右クリックし、プロパティのバージョン情報でファイルバージョンをみることができるが、リリースしたプログラムのバージョン確認するため、電話先のユーザにこれをやってもらうのはなかなか苦労することが多い。そこで、プログラムのキャプションに最初からバージョンを表示しておけばユーザからも聞きだしやすいということで、そうしようとなり、プログラム起動時に次のようなコードを埋め込むことにより、見事完了。

Dim ver As System.Diagnostics.FileVersionInfo
　　ver = System.Diagnostics.FileVersionInfo.GetVersionInfo( _
　　　　　System.Reflection.Assembly.GetExecutingAssembly().Location)
　　Me.Text &= "(" & ver.FileVersion & ")"

キャプションへは
「プログラムの名前等(1.0.0.0)」
のように表示されます。