TP277脚本仿真时可实现，屏上无法实现
刘玉蓉
发布于2014-10-13 17:38
486
0
标签：
TP277的屏上记录变量值，利用脚本生成CSV文件。我再仿真时可以实现功能，为何在屏上无法实现？？
函数在WINCE系统下是否无法使用？
我保存的路径是storage_path="storage Card USB"
SET fso=createobject("scripting.filesystemobject")
创建得换成Fliectl.file吗？
问题补充：
Dim fso, f, ts, bCreated, FName, Dataset, Header, Storage_Path, strName, strTemp, arr, strDir
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
佳答案
是的，scripting.filesystemobject是电脑Windows里的FSO对象，WinCE里面是不一样的
读写文件还是按你说的用FileCtl.File，另外还要注意一些WinCE里和Windows里使用的一些区别，具体可参考WinCCflexible帮助里关于WinCE VBScript里的内容
Set fso = CreateObject("FileCtl.File") """" 建立File对象
