tmplinshi

保存为 读书笔记.vbs：

Dim Today, fso, FileName, MyFile

Today = Year(Now) & "-" & Month(Now) & "-" & Day(Now)
Set fso = CreateObject("Scripting.FileSystemObject")
FileName = "读书笔记" & Today & ".txt"

If (fso.FileExists(FileName)) Then
    '
Else
    Set MyFile = fso.CreateTextFile(FileName, True)
    MyFile.WriteLine _
        "作者：" & vbCrLf & _
        "篇名：" & vbCrLf & _
        "出处：《             》第    年    期（号）" & vbCrLf & _
        "出版社： " & vbCrLf & _
        "出版时间：    年  月" & vbCrLf & _
        "版次：第  版" & vbCrLf & _
        "已阅读至    页。"
    MyFile.Close
End If

WScript.CreateObject ("WSCript.shell").run FileName
复制代码