テキストファイル書き出し
Imports System.IO Imports System.Text '--- Dim tDir As String = Path.GetDirectoryName(FL(0)) Dim files As String() = Directory.GetFiles(tDir, "*", SearchOption.AllDirectories) Dim outfilePath As String = tDir & "\out.txt" Dim enc As Encoding = Encoding.GetEncoding("shift_jis") 'StreamWriterを使用 Using tData As New StreamWriter(outfilePath, False, enc) For Each fp As String In files tData.WriteLine(fp) Next End Using 'Fileメソッドを使用 File.WriteAllLines(outfilePath, files, enc)