随笔分类 -  VB6.0

VB6.0 随笔记录
摘要:1 Private Sub ReadWriteLog() 2 3 Dim fsObj As New Scripting.FileSystemObject 4 Dim fileTextStream As Scripting.TextStream 5 Dim fileText As String 6... 阅读全文
posted @ 2016-01-15 18:04 Janzen 阅读(839) 评论(0) 推荐(0)
摘要:1 Private Sub WriteLog(method As String, message As String) 2 'Write Error LogFile 3 4 Dim ifile As Long 5 ifile = FreeFile 6 Open "C:\L... 阅读全文
posted @ 2016-01-15 16:06 Janzen 阅读(1311) 评论(0) 推荐(0)