|
分類:[VB.NET/VB2005 以降]
\\pc1\dataにあるファイルのパスリストをテキストファイルに
書き出したいのですが、１０万ファイルくらいありそうです。
Nextのところで、
データSQLite(巡回冗長検査(CRC)エラー)となります。
あまりに多いのでこうなるのか、２万ファイルくらいであればokでした。
すみませんが、宜しくお願い致します。
Imports System
Imports System.IO
Imports System.Collections.Generic
Module Module2
Sub Main1()
Dim files As IEnumerable(Of String) _
= Directory.EnumerateFiles( _
"\\pc1\data", _
"*", _
SearchOption.AllDirectories)
Dim Writer As New IO.StreamWriter("C:\tmp\test.txt")
For Each file In files
Writer.WriteLine(file)
Next
Writer.Close()
End Sub
End Module
|