add Log

Ralph-Wang · Sep 21, 2013 · a23cc96 · a23cc96
1 parent 5e2ab65
commit a23cc96
Showing 1 changed file with 29 additions and 0 deletions.
diff --git a/log.vbs b/log.vbs
@@ -0,0 +1,29 @@
+Option Explicit
+
+Private Const LogName = "test.log" ' where to write
+
+'test
+Private Sub test()
+    WriteLog("write a log")
+End Sub
+
+Public Function WriteLog(logMsg):
+    Dim localTime, NewLog, logFile
+    localTime = "[" & Now() & "]"
+    NewLog = localTime & " " & logMsg
+    Set logFile = OpenLogFile()
+    logFile.WriteLine(NewLog)
+    Set logFile = Nothing
+End Function
+
+Private Function OpenLogFile()
+    Dim fso
+    Set fso = CreateObject("Scripting.FileSystemObject")
+    If fso.FileExists(LogName) Then
+        Set OpenLogFile = fso.OpenTextFile(LogName, 8, false)
+    Else
+        fso.CreateTextFile(LogName)
+        Set OpenLogFile = fso.OpenTextFile(LogName, 8, false)
+    End If
+    Set fso = Nothing
+End Function