代码如下:
Private Sub Form_Load()
Dim T
Dim D
Let T = Time$
Let D = Date$
Open "D:\xx.ini" For Append As #1 '保存文件"xx.ini"
Print #1, "[" & D & "]<" & T & ">"
Close #1
End
End Sub
编译后放入启动文件夹中便可生效
let 是赋值语句
通常情况下可不加
故Let T = Time$
Let D = Date$
可改为
T = Time$
D = Date$