VB 打日志

　　　　 Dim fso1 As New FileSystemObject
        Dim ts1 As TextStream
        Set ts1 = fso1.CreateTextFile("c:\verifymsg" & VerifyNum & ".txt")
        ts1.Write ToVerifyMsg
        ts1.Close