Sub GetFiles(ByVal Folder As String, ByVal FilePath As String)
        Dim Sw As IO.StreamWriter 
        Dim Files As String
        Sw = New IO.StreamWriter(FilePath)
        For Each Files In IO.Directory.GetFiles(Folder)
            Sw.WriteLine(Files)
        Next
        Sw.Close()
    End Sub
' In Form
GetFiles("C:\temp", "C:\files.txt")