怎样把list 中的内容保存成为.txt文件.txt

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· 文本 代码 · 共 21 行

List本 身 没 有 SaveFile方 法 ， 如 果 你 象 保 存 为 文 本 文 件 可 以 这 样 修 改 。 
    修 改 如 下 ： 
    Private Sub save_Click() 
     
     CommonDialog1.Filter = "文 本 文 件 （ *.TXT） |*.txt" 
     CommonDialog1.FileName = FileName 
     
     '显 示 保 存 对 话 窗 口 
     CommonDialog1.ShowSave 
     '如 果 没 有 文 件 
     If Len(CommonDialog1.FileName) = 0 Then 
     Exit Sub 
     End If 
     
     '文 本 格 式 文 件 
     Open CommonDialog1.FileName For Output As #1 
     For i = 0 To List.Count - 1 
     Print #1, List.List(i) 
     Close #1 
    End Sub 
<END>