Private Sub Command1_Click()
    Open 文件名 For OutPut As #1
    Print #1,label1.caption
    Print #1,label2.caption
    Close #1
    
End Sub

解决方案 »

  1.   

    谢谢,zyl910请回答我的第2个问题
    你说的这个是将TXT的内容全变成LABEL的了
    第2个是把 label.caption 添加到TXT文件里,还要保留以前的内容
      

  2.   

    dim fa as string    
    fa = tpath + Format(Date, "MMdd") + ".log"
        Open fa For Append As #2
         Print #2,label1.caption
        Print #2,label2.caption
        Close #2
      

  3.   

    Private Sub Command1_Click()
        Open 文件名 For OutPut As #1
        Print #1,label1.caption
        Print #1,label2.caption
        Close #1
    End Sub 
      

  4.   

    TBBT你的不管用啊
    sdjack不是和zy1910的一样吗?
    谢谢你们回答