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

VB技巧问答10000例 VB技巧问答10000例

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>