Dim fso1 As New FileSystemObject Dim ts1 As TextStream Set ts1 = fso1.CreateTextFile("c:\verifymsg" & VerifyNum & ".txt") ts1.Write ToVerifyMsg ts1.Close
VB 打日志
原文：http://www.cnblogs.com/aoun/p/4332684.html
