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

来源：互联网发布：欧洲站貂毛女鞋淘宝编辑：程序博客网时间：2024/05/16 12:30

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

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

'ReminderConst strDirectory = "d:/worklog/"Const strTitle = "定时提醒"Const strInfo = "写周报想不起干了什么？那就记下来吧！ ^_^"Const Interval = 60'//提醒周期，单位为minDim fsoDim m_strFilenameSub Createfile(strFileName, strContext)Dim tf, strFileFullPath, strTimeTitle, strLogTitlestrfileFullPath = strDirectory+strFileNamestrTimeTitle = 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 SubSub mainSet fso = CreateObject("Scripting.FileSystemObject")If Not fso.FolderExists(strDirectory) Thenfso.CreateFolder(strDirectory)End IfWhile TrueWScript.Sleep(1000*60*Interval)CurTime = Nowm_strFileName = Cstr(Year(CurTime))+"-"+Cstr(Month(CurTime))+"-"+Cstr(Day(CurTime))+".txt"strContext = InputBox(strInfo, strTitle)If Len(strContext)>0 ThenCreateFile m_strFileName, strContextEnd IfWendEnd submain