zhong0490的专栏

原创 vb读取文件并在文本框中显示

    Dim Str1 As String    Dim Str2 As String    Dim StrFileName As String    StrFileName = App.Path & "/1.txt" '获取文本文件路径    Open StrFileName For Input As #1 '打开文件    Do Until EOF(1) '判断是否末尾        Line Input #1, Str1 '逐行读取        Str2 = Str2 & Str1 & vbCrL