Try 'ファイルオープン処理 Catch ex As IOException When ex.HResult = STIERR_SHARING_VIOLATION '&H80070020 'プロセスはファイルにアクセスできません。別のプロセスが使用中です。 Catch ex As IOException When ex.HResult = STIERR_DEVICE_LOCKED '&H80070021 'プロセスはファイルにアクセスできません。別のプロセスがファイルの一部をロックしています。 Catch ex As Exception 'その他の例外:必要に応じて再 Throw する Finally '後始末 End Try