จุดเริ่มต้นมันเกิดจากความขี้เกียจครับ ต้องการบันทึกว่าแต่ละวันเราทำอะไรบ้าง ง่ายๆ ก็เลยได้ vbscripts มาตัวนึงครับ มาปรับๆ ก็สามารถทำงานได้ตามที่การ
Option Explicit
Dim filename, DateInfo
DateInfo = Year(date) & "-" & Month(date) & "-" & Day(date)
filename = "D:\logs\worklog-"&DateInfo&".txt"
Dim text
text = InputBox("Add to "&filename&":", "Quick Logger")
WriteToFile(text)
Sub WriteToFile(text)
Dim fso
Dim textFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set textFile = fso.OpenTextFile(filename, 8, True)
textFile.WriteLine Now & "," & text
textFile.Close
End Sub
ให้ save file เป็น quicklogger.vbs ครับ
หลังจากนั้นให้ทำการ click ความที่ไฟล์ แล้วสร้าง shortcut ไว้บน desktop
ให้ทำ short key ใช้ในการเรียกใช้ script นี้ครับ ด้วยการกด Ctrl + Alt + L
เวลาเรียกใช้ให้กด Ctrl + Alt +L ก็จะมี popup ขึ้นมาให้กรอกครับ
ผลลัพท์ที่ได้ก็ ก็จะอยู่ใน text file
