Dim fso1 As New FileSystemObject Dim ts1 As TextStream Set ts1 = fso1.CreateTextFile("c:\verifymsg" & VerifyNum & ".txt") ts1.Write ToVerifyMsg ts1.Close
Dim fso1 As New FileSystemObject Dim ts1 As TextStream Set ts1 = fso1.CreateTextFile("c:\verifymsg" & VerifyNum & ".txt") ts1.Write ToVerifyMsg ts1.Close
转载于:https://www.cnblogs.com/aoun/p/4332684.html