TP277脚本仿真时可实现，屏上无法实现

Storage_Path = "\Storage Card USB" 

FName = Storage_Path & "\Archiv_" & CStr(DatePart("d",Date)) & "_" & CStr(DatePart("m",Date)) & "_" & CStr(DatePart("yyyy",Date)) & ".csv"

Header = "Storage time;name;barcode;diameter;error" &  Chr(10)

Set fso = CreateObject("FileCtl.FileSystem")

 Script_Storage_Path Storage_Path 
On Error Resume Next 

bCreated = False 
If Not fso.FileExists(FName) Then
  fso.CreateTextFile FName
  bCreated=True 
End If

Set f = fso.GetFile(FName)
Set ts = f.OpenAsTextStream (8,-2)

If Err.Number <> 0 Then 
 Call ShowSystemAlarm ("Datei konnte nicht angelegt werden oder ist eventuell ge?ffnet / File could not be create or maybe open")
 Err.Clear
Else
 
 
  If bCreated = True Then       
  ts.lineprint FName
  ts.lineprint Header
  End If 
 
 

 Dataset = CStr(Now) & ";" & CStr(SmartTags("name")) & ";" & CStr(SmartTags("barcode")) & ";" & CStr(SmartTags("diame