ファイルのロック（別プロセス使用か否か）の調査

bool FLG = false;
while (!FLG){
    try
    {
        Fileのオープン;
        File読み込み;
        Fileクローズ;
        FLG = true;
    }chatch(発生する例外 ex){
        Thread.Sleep(休みたい時間);
    }
}

Dim finfo As New System.IO.FileInfo(ファイル名)
Dim stream As System.IO.Stream = Nothing
Dim lp As Integer = 0
While True
	Try
		stream = finfo.Open(IO.FileMode.モード, IO.FileAccess.アクセス権, IO.FileShare.シェア)
		ファイルを扱う
		Exit While

	Catch ex As IO.IOException
		' ロック解除待ち
		lp += 1
		If lp > 10 Then Throw ex ' これだと10秒で例外送出
		System.Threading.Thread.Sleep(1000) ' 1秒待つ

	Finally
		If Not stream Is Nothing Then stream.Close()
	End Try
End While