定时提醒写日志的工具和源码

分享一个定时提醒写日志的工具，主要用于那些平时事情比较杂，或者记性不好，结果写周报，月度总结时想不起来自己干了什么的朋友

把下面的代码拷下来，存成一个后缀名为 vbs 的文件即可使用(不知道如何上传文件，只好这样搞了...)'

 

 

'Reminder

Const strDirectory = "d:/worklog/"

Const strTitle = "定时提醒"

Const strInfo = "写周报想不起干了什么？那就记下来吧！ ^_^"

Const Interval = 60				'//提醒周期，单位为min





Dim fso

Dim m_strFilename





Sub Createfile(strFileName, strContext)

	Dim tf, strFileFullPath, strTimeTitle, strLogTitle

	strfileFullPath = strDirectory+strFileName

	strTimeTitle = Cstr(FormatDateTime(Now,vbGeneralDate))

	strLogTitle = "/*************+++ "+strTimeTitle+ "+++ ******************/"

	MsgBox(strLogTitle)

	Set tf=fso.OpenTextFile(strFileFullPath, 8, True, TristateTrue)

	tf.WriteLine(strLogTitle)

	

	tf.WriteLine(strContext)

	tf.WriteBlankLines(1)

	tf.Close()

End Sub





Sub main

	Set fso = CreateObject("Scripting.FileSystemObject")	

	If Not fso.FolderExists(strDirectory) Then

		fso.CreateFolder(strDirectory)

	End If

		

	While True

		WScript.Sleep(1000*60*Interval)

		CurTime = Now

		m_strFileName = Cstr(Year(CurTime))+"-"+Cstr(Month(CurTime))+"-"+Cstr(Day(CurTime))+".txt"

		strContext = InputBox(strInfo, strTitle)

		If Len(strContext)>0 Then

			CreateFile m_strFileName, strContext

			End If

	Wend

End sub

main