主题：[求助]读取文本文件时，写字本里是多行，读取到文本框后变成一行

If e.Node.Nodes.Count = 0 Then '如果目录树节点无子节点

    Dim bm As String = e.Node.FullName '节点路径

    Dim f As String = ProjectPath & "Attachments\data\E\" & bm '文件路径

    If FileSys.FileExists(f) Then '文件存在时

        Dim ifo As New FileInfo(ProjectPath & "Attachments\data\E\" & bm) '文件信息类

        If ifo.Extension = ".js" OrElse ifo.Extension = ".json" OrElse ifo.Extension = ".wxml" OrElse ifo.Extension = ".js" Then

            Dim s As String = FileSys.ReadAllText(ProjectPath & "Attachments\data\E\" & bm)

            e.Form.Controls("TextBox2").Text = s

        End If

    End If