2016年1月15日
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 阅读(834) 评论(0) 推荐(0)
Vb6.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 阅读(1304) 评论(0) 推荐(0)