主要代码如下：
Screen_Name = "操作记录"
Storage_Path = "\Storage Card USB\Logs"
Set fso = CreateObject("FileCtl.Filesystem")
Set f = CreateObject("FileCtl.File")
If SmartTags("操作记录\Change")=0 Then

f.Open Storage_Path &"\Operating records\Operating records0.txt",1,1
Else

f.Open Storage_Path & "\Alarm records\Alarm records0.txt",1,1 'WINCE
End If
ix=1
If SmartTags("操作记录\Change")=0 Then
Do While f.EOF <> True 'WINCE
field = f.LineInputString
SmartTags("操作记录\field")= field