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

フォルダー内に含まれるファイル一覧を配列に格納するために、



        For Each fi As FileInfo In dirInfo.GetFiles()
            cnt += 1
            filepath(cnt) = fi.FullName

        Next fi

というコードを使っているのですが
ファイル数が10万個を超えると
dirInfo.GetFiles()
のところで
フリーズしたように時間がかかってしまいます。

せめてフォーム上に進行状況を表示できれば良いのですが
コマンドが一つであるため、それもできません。

フォームに進行状況を表示しながら
ファイルを検索するには昔ながらDir関数を使うしかないでしょうか？

あるいは、もっと高速に検索できる方法があれば教えてください。

■No83848 (わんちゃん さん) に返信

フリーズという言葉は多分適切な表現ではないのではないでしょうか？
単純にファイルが多いのでループ回数が多いだけではないでしょうか？

> lengthはIEnumerable(Of String)のメンバーではありません

No83847 の魔界の仮面弁士様の回答にある質問に対しYesでないとlengthの
話は成り立たないのでそのようなエラーが発生します。

動作が遅くなっているコードは現在

      For Each fi As FileInfo In dirInfo.EnumerateFiles
            cnt += 1
            filepath(cnt) = fi.FullName

      Next fi

となっているのでしょうか？

        Dim filepath As New List(Of String)
        Dim dirInfo As New DirectoryInfo("・・・")

        Dim flEnum1 = dirInfo.EnumerateFiles
        Dim flEnum2 = flEnum1.GetEnumerator

        Do While flEnum2.MoveNext
            Dim fi = flEnum2.Current
            filepath.Add(fi.FullName)
        Loop

とした場合、どこが遅くなりますか？

ありがとうございます。

前回、試したコードは以下の通りです



        Dim files As IEnumerable(Of String) = Directory.EnumerateFiles("xxx", "*", SearchOption.AllDirectories)


        For Each f As String In files

            cnt += 1
            filepath(cnt) = f

        Next f



>魔界の仮面弁士さん

正確に4MBのファイルが10万個、一つのフォルダー内に入っています。

デバッグ実行ではなく、
Release ビルドでの EXE 実行でも試しましたが実行されませんでした。

あと、D:\で試すとすぐに列挙が開始されました。

もしかするとこのフォルダーがおかしいのかも知れません。
アクセス権限を見ましたが、
フルコントロールと特殊なアクセス許可以外には全て許可にチェックが入っています。


あと、フォルダーが入っているのはUSB3.0に接続された外付けHDDです。
速度は十分にありますが、外付けというのがもしかして原因ということはないですか？


>shuさん


        Dim filepath As New List(Of String)
        Dim dirInfo As New DirectoryInfo("・・・")

        Dim flEnum1 = dirInfo.EnumerateFiles
        Dim flEnum2 = flEnum1.GetEnumerator

        Do While flEnum2.MoveNext
            Dim fi = flEnum2.Current
            filepath.Add(fi.FullName)
        Loop


で試してみましたが、
        Do While flEnum2.MoveNext

のところで固まってしまいます。

ちなみにフリーズというのは30〜60秒くらいです。
完全にフリーズというわけではありません。

よろしくお願いいたします。

2017/04/15(Sat) 13:59:34 編集(投稿者)

<pre><pre>

昔ながらの



        Dim buf As String
        buf = Dir(dirInfo.FullName & "\*.*")


        Do While buf <> ""
            filepath(cnt) = dirInfo.FullName & "\" & buf
            cnt = cnt + 1
            buf = Dir()

        Loop


という方法も試してみましたが
外付けHDDの場合には、
buf = Dir(dirInfo.FullName & "\*.*")のところで数十秒フリーズしてしまうことが分かりました。

あと、内蔵HDDであっても、


上記のDir関数の方法と


        Dim files As IEnumerable(Of String) = Directory.EnumerateFiles(dirInfo.FullName, "*", SearchOption.AllDirectories)
の方法だとわずかですがフリーズしてしまいます。



        Dim filepath As New List(Of String)
        Dim dirInfo As New DirectoryInfo(dirInfo0.FullName)

        Dim flEnum1 = dirInfo.EnumerateFiles
        Dim flEnum2 = flEnum1.GetEnumerator

        Dim cnt = 0
        Do While flEnum2.MoveNext

            cnt += 1
            Dim fi = flEnum2.Current
            filepath.Add(fi.FullName)
        Loop

の方法だとフリーズしないことが分かりました。

外付けHDDだと何が違うのでしょうか？
ちなみに7200rpmで1TBの2.5inch HDDです。




</pre></pre>