Function savebigfile(byfilename As String, t1 As RichTextBox) As Boolean
'需要:scriting runtime引用
'On Error GoTo err
    Dim fsoTextTemp As TextStream
    Dim fsoFile As New FileSystemObject
    '关闭原来的文件,并建立一个同名的新的文件,将更新的文件流写入到新文件中
    'fsoTextStream.Close
    Set fsoTextTemp = fsoFile.CreateTextFile(byfilename, True)
    fsoTextTemp.write t1.Text 'downpage_frm.t1.text
    fsoTextTemp.Close
    Set fsoTextTemp = Nothing
    Exit Function
err:
 savebigfile = False
End Function

解决方案 »

  1.   

    晕,这是保存RichTextBox的内容到文件
      

  2.   

    按樓主的代碼, 可以將t1 As RichTextBox替換為其它的諸如t1 As TextBox之類.
    但由于Textbox的容量有限制(最多32K), 如果文本框的內容要超過此限制, 只好用RichTextBox了
      

  3.   

    我想无所谓吧。使用字节数组就可以打开了!
    要不你调用API操作!
      

  4.   

    大家好,不是慢的问题,只有64k以上呀,问题是保存文本文件时不支持64k以上,如果要变成二进制保存如何做:
    其实就是大于64k的string字符串变成二进制然后保存,如何做呢?