C# と VB.NET の質問掲示板

環境：VisualStudio2012、.Net4.5、Windows7

次のような現象が起きて、どう対処したらいいかわからない状況です。

FolderBrowserDialogを使用してフォルダを選択後、配下のファイル一覧を取得し
それらのファイルを参照しようとしています。

If FolderBrowserDialog1.ShowDialog = Windows.Forms.Dialog.OK Then
    Dim path As String = FolderBrowserDialog1.SelectedPath
    Dim files As IEnumerable(Of String) = Directory.EnumerateFiles(path, "*.xml", SearchOption.AllDirectories)
    For Each file In files
        Dim xDoc As New XMLDocument
        xDoc.Load(file)
    Next
End If

この時filesには正常にパスが取得できていて、次のLoadでもExceptionは発生しません。
ところが、xDocをウォッチで見ると"式を評価できません"と表示され、以降のDOM操作も機能しませんでした。
何故こうなるのかさっぱりだったので、以下のようにあがいてみました。

１．上記のIf文の後に全く関係ないコードを書いてみた
    具体的にはDataTableに適当に値を詰めるコード
    →DataTableの変数が同じく"式を評価できません"となって参照できない
２．FrameWorkのバージョンを変えてみた
    →4.0、4.5はNG、3.5まで落としたら正常に動作した(EnumerateFilesは別のメソッドに変えた)
３．別の端末で同じコードを試してみた
    →Win8、VS2012、.NET4.5  ×
    →Vista、VS2005、.NET2.0  ○
    
現象の羅列で申し訳ありませんが助言のほうよろしくお願いします。
    

■No72105 (Azulean さん) に返信
> 2014/05/17(Sat) 00:04:31 編集(投稿者)

すみません。いつも説明足らずと言われます。
改めて状況を説明しますと

If FolderBrowserDialog1.ShowDialog = Windows.Forms.Dialog.OK Then
    Dim path As String = FolderBrowserDialog1.SelectedPath
    Dim files As IEnumerable(Of String) = Directory.EnumerateFiles(path, "*.xml", SearchOption.AllDirectories)
    For Each file In files
        Dim xDoc As New XMLDocument
        xDoc.Load(file)
        ' **後続のDOM処理)**
        Dim nodes As XmlNodeList = xDoc.GetElementsByTagName("Item")  ' ブレーク
    Next
End If

' **ケース１のお試しコード**
Dim dt As New DataTable
dt.Columns.Add("Test")  ' ブレーク

上記の位置でブレークするとxDocとdtがそれぞれ"式を評価できません"となります。
ひとまずスコープ間違いという凡ミスではないと思っています。

ケース２はコードはそのままに対象のFrameWorkのバージョンを変えました。
ケース３もコードはそのままに別の端末の環境(前述の環境から変更しない)で実行しました。

さらにケース４として、FolderBrowserDialogを使用しないパターンも試してみました。

Dim xDoc As New XMLDocument
xDoc.Load("D:\test.xml")
Dim nodes As XmlNodeList = xDoc.GetElementsByTagName("Item")

上記のIfの括りを全てコメント化し、ファイルを直接指定します。(位置はDataTableの直後)
結果、正常に動作し単独のコードとしては問題ないように思います。(DataTableも同様に正常)

引き続きよろしくお願いします。