编写自己程序的调试日志出现错误

Tag4 <> ""

文件模式错了。应该使用 append  追加模式吧。
用 output ，每次打开文件都会把前面的内容删掉。

[ 本帖最后由 风吹过b 于 2015-5-24 19:42 编辑 ]

Tag5 = Now & " ShutDown After " & Str(Tag1) & " Second"   '生成写入的内容
   Open (App.Path & "\ErrLog\RunTimeLog.log") For append As #1    '以追加方式打开文件
    Print #1, Tag5    '在文件尾接着写入内容
   Close #1              '

在手机上写的代码，你自己调试一下。

---------
再仔细看了你原来的代码，错在读内容上面。
input 命令是读变量值，你后面跟着的是 字符串变量，那么就是读到行结尾就不读了。
要么使用二进制打开文件，一次读入。要么使用循环，按行读，读到的内容拼起来。
你的代码只读一次，也就是第一行。
加上最后保存的那行，只会有二行内容。

FSO操作文件时，追加内容就是使用你这种的方法，在 ASP 代码里用的多，但 FSO 有一个命令读所有的内容。