テキストファイル書き出し

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)