（一）過程
Win R—notepad—編寫代碼—將代碼文件保存為："文件名.vbs"格式—鼠標雙擊vbs文件，即可創建一個"文件名.txt"文件。
（二）代碼文件
set p=CreateObject("Scripting.FileSystemObject")
set o=p.CreateTextFile("c:\users\administrator.USER-20230131DF\desktop\111.txt",true)
o.writeline "自我批評與自我革命" & vbnewline & now()
（三）圖例
