诚心请教个问源代码问题！

freehzj

看了这么多高的用QB编写一键恢复，我也手有点痒，自己亲自弄了一个，请有几个小问题处理不了， 请高的赐教！
1、如何实现查找备份文件的日期，并显示在窗体上。
2、如何调用现在日期显示在窗体上，并实时变化。
现在的时间调用用这个代码行吗？
Y$ = RIGHT$(DATE$, 4)
M$ = LEFT$(DATE$, 2)
d$ = MID$(DATE$, 4, 2)
shi$ = LEFT$(TIME$, 2)
fen$ = MID$(TIME$, 4, 2)
ztime$ = shi$ + "时" + fen$ + "分"
zdate$ = Y$ + "年" + M$ + "月" + d$ + "日"
ondati$ = zdate$ + ztime$
这个实现不了实时变化。