【実務・中級編】実務中級者向け：VB.NETのMyNamespace（Myオブジェクト）の全貌：FileSystemやApplicationなど標準で使える強力な便利機能の活用法 – Visual Basic (VB / VB.NET)解析バイブル

VB.NETを掌握する極限の知見：`My`名前空間の全貌と、実務で絶対に壊れない堅牢な自動化設計

こんにちは。開発プロジェクトの現場で、日々数々のレガシーコードや非効率な実装を刷新しているチーフアーキテクトだ。

VB.NETを「C#の劣化版」「初心者向けの言語」と侮っている者がいたら、今すぐその認識を改めてもらいたい。確かにC#は洗練されているが、VB.NETが持つ`My`名前空間（Myオブジェクト）という強力なメタ・ショートカット機能を知り尽くした者にとって、これほど開発生産性の高い言語は他にない。

特に、業務自動化ツールやクライアントサイドのユーティリティを短納期で実装しなければならない現場において、`My`名前空間は強力な武器となる。しかし、その手軽さゆえに、ライフサイクルや例外処理を無視した「動くだけの脆いコード」が量産されているのも事実だ。

今回は、実務中級者に向けて、`My`名前空間の真価を解き放ち、プロダクション環境で耐えうる堅牢な実装手法をロジカルに伝授する。

—

1. なぜ「素の.NET Framework/.NET Core」ではなく「My」を使うべきなのか

通常、ファイルシステムにアクセスしたり、アプリケーションの情報を取得したりする場合、私たちは以下のような冗長なコードを書くことになる。

.net
‘ 【非効率な従来手法】
Dim userName As String = System.Environment.UserName
Dim logPath As String = System.IO.Path.Combine(System.Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData), “MyApp”, “log.txt”)
System.IO.File.AppendAllText(logPath, “ログメッセージ” & vbCrLf)

もちろんこれでも動く。だが、名前空間の階層は深く、タイポのリスクもあり、何よりコードの視認性が低い。

これを`My`名前空間で書き換えると、こうなる。

.net
‘ 【洗練されたMy名前空間の活用】
Dim logPath As String = My.Computer.FileSystem.CombinePath(My.Computer.FileSystem.SpecialDirectories.MyDocuments, “MyApp\log.txt”)
My.Computer.FileSystem.WriteAllText(logPath, “ログメッセージ” & vbCrLf, True)

`My`は単なるエイリアスではない。開発者が頻繁に使うAPIへの「最短経路」を、コンパイラとIDEのIntelliSenseが極限まで最適化したものだ。これらを適切に使いこなすことで、認知負荷を劇的に下げ、ビジネスロジックの構築に集中できる。

—

2. 実務で必須となる `My` の主要コンポーネント

実務の業務自動化ツールで特に多用される、主要な`My`オブジェクトの領域を見ていこう。

• `My.Application`: アプリケーションの実行コンテキスト、INFO、ログ出力、設定の管理。
• `My.Computer`: 物理マシンのハードウェア情報、ファイルシステム、ネットワーク、レジストリ。
• `My.User`: 現在のWindowsユーザーや認証情報の取得。

これらの中から、現場で最も事故が起きやすく、かつ効果が高い「ファイルシステム操作」と「アプリケーション制御」に焦点を当てる。

—

3. 【コピペOK】堅牢性と保守性を極めたプロダクションコード例

以下のコードは、実務の業務自動化ツール（ログ出力、設定ファイル読込、プロセス排他制御）を想定して構築した、そのまま現場に投入できるモジュールだ。

エラーハンドリング、リソース解放、例外の伝播を考慮した「プロの設計」になっている点を注視してほしい。

.net
Imports System.IO
Imports System.Text

Public NotInheritable Class ApplicationManager

‘ インスタンス化させない（静的クラスとしての設計）
Private Sub New()
End Sub

”’

”’ 出力するメッセージ Public Shared Sub WriteLog(message As String)
Try
‘ My.Computer.FileSystem.SpecialDirectories でOS依存のパス問題をクリア
Dim appDataDir As String = My.Computer.FileSystem.SpecialDirectories.CurrentUserApplicationData

‘ ディレクトリが存在しない場合は自動生成
If Not My.Computer.FileSystem.DirectoryExists(appDataDir) Then
My.Computer.FileSystem.CreateDirectory(appDataDir)
End If

Dim logFilePath As String = My.Computer.FileSystem.CombinePath(appDataDir, “automation_error.log”)

‘ タイムスタンプ付与フォーマット
Dim logEntry As String = $”[{DateTime.Now:yyyy-MM-dd HH:mm:ss}] {message}{Environment.NewLine}”

‘ ファイル書き込み (第3引数 True で追記モード。存在しない場合は自動作成)
‘ 文字コードはUTF-8(BOM付き)を指定し、文字化けを完全に防止する
My.Computer.FileSystem.WriteAllText(logFilePath, logEntry, True, Encoding.UTF8)

Catch ex As Exception
‘ ログ出力失敗自体でシステムを止めないためのフォールバック
System.Diagnostics.Debug.WriteLine($”ログ書き込みに失敗しました: {ex.Message}”)
End Try
End Sub

”’

Public Shared Sub CheckEnvironmentAndRun()
‘ アプリケーションのタイトルとバージョンをMy.Applicationから取得
Dim appName As String = My.Application.Info.AssemblyName
Dim appVersion As String = My.Application.Info.Version.ToString()

WriteLog($”{appName} (Ver: {appVersion}) が起動しました。”)

‘ ネットワークドライブやローカルでの簡易的なプロセスチェック
‘ ※本格的なMutex制御と併用することで、二重起動を完全にブロックする
Dim processCount As Integer = System.Diagnostics.Process.GetProcessesByName(appName).Length
If processCount > 1 Then
Throw New InvalidOperationException(“このアプリケーションは既に別のプロセスで実行されています。”)
End If
End Sub

”’

”’ 確認対象のIPまたはホスト名 ”’ 接続可能な場合 True
Public Shared Function CheckNetworkConnection(hostNameOrAddress As String) As Boolean
Try
‘ タイムアウト3000ms (3秒) でPingを実行
Return My.Computer.Network.Ping(hostNameOrAddress, 3000)
Catch ex As Exception
‘ ネットワーク切断や名前解決失敗時は False を返す
WriteLog($”ネットワーク疎通確認に失敗 [{hostNameOrAddress}]: {ex.Message}”)
Return False
End Try
End Function

End Class

—

4. チーフアーキテクトが教える：実務での絶対的注意点

`My`名前空間は強力だが、裏側の挙動を理解していないと、大規模なデータ処理やマルチスレッド環境で思わぬ罠に嵌まる。

1. `My.Computer.FileSystem.ReadAllText` の巨大ファイルに対する脆弱性

上記のコードでは小さなログや設定ファイルを扱っているが、もし数GBある巨大なCSVファイルを `My.Computer.FileSystem.ReadAllText` や `ReadAllBytes` で一気にメモリ上に読み込もうとすれば、即座に `OutOfMemoryException`（メモリ不足例外）を引き起こし、ツールはクラッシュする。

• 対策: 100MBを超えるようなファイルを扱う場合は、`My`の糖衣構文に頼らず、`System.IO.StreamReader` を用いて行単位でストリーミング処理を実装すること。

2. スレッド安全性（Thread Safety）の罠

`My`オブジェクト（特に `My.Application` や `My.Computer`）の一部プロパティや、UIスレッドに依存する操作は、バックグラウンドスレッド（`Task` や `BackgroundWorker`）から直接呼び出すと、クロススレッド例外や予期せぬ状態不整合を起こす。

• 対策: 非同期処理やマルチスレッド内から `My` 名前空間を利用する際は、UIコンテキストに依存しない純粋なIO操作（ファイル読み書きなど）に限定し、UIの更新が必要な場合は必ず `Invoke` を経由させること。

—

終わりに：道具に使われるな、道具を使いこなせ

今回紹介した `My` 名前空間は、VB.NETの開発生産性を何倍にも引き上げるマスターキーだ。しかし、優秀なエンジニアとは、「便利なAPIを知っている者」ではなく、「そのAPIが内部で何をやっているかを理解し、適切な場面で安全に選択できる者」を指す。

あなたがこれから構築する業務自動化ツールが、単に動くだけの代物ではなく、保守性に優れ、エラーに強く、現場の運用者を安心させる堅牢なシステムであることを期待している。

コードに魂を込めろ。実装の美しさは、そのままシステムの強靭さに直결する。