-> Hier kostenlos registrieren
Hallo,
ich habe folgende Skripte im Panel aufgeladen, danach bekomme ich die folgende Meldungen :
1. The System cannot Find the path specified.
2. Error#424 Objekt erforderlich
3. Error#429 Active X-Komponenten kann kein Objekt erstellen.
Was habe ich da schief gemacht ?
(**der Panel ist ein MP377 12" Touch)
ich habe folgende Skripte im Panel aufgeladen, danach bekomme ich die folgende Meldungen :
1. The System cannot Find the path specified.
2. Error#424 Objekt erforderlich
3. Error#429 Active X-Komponenten kann kein Objekt erstellen.
Code:
-----------------------------Daten schreiben---------------------------------------------------------------
Dim ts,f,fs,Filename
On Error Resume Next
Filename = "\Storage Card MMC\Daten.csv"
Set fs=CreateObject("filectl.filesystem")
If Not fs.FileExists(Filename) Then
fs.CreateTextFile Filename
Set f = fs.GetFile(Filename)
Set ts = f.OpenAsTextStream(8, -2)
ts.WriteLine "Datum;"&"Uhrzeit;"&"Temperatur 1[°C];"&"Temperatur 2[°C];"&"Temperatur 3[°C]"
If SmartTags ("DB-Allgemein.Daten_Schreiben" ) = True Then
ts.WriteLine CStr(Date) & ";" & CStr(Time) & ";" & SmartTags("Temp.Var1")&";" & SmartTags("Temp.Var2")&";" & SmartTags("Temp.Var3")
ts.Close
ts.Close
ts.Close
End If
Else
Set f = fs.GetFile(Filename)
Set ts = f.OpenAsTextStream(8, -2)
If SmartTags ("Schreiben_Start" ) = True Then
ts.WriteLine CStr(Date) & ";" & CStr(Time) & ";" & SmartTags("Temp.Var1")&";" & SmartTags("Temp.Var2")&";" & SmartTags("Temp.Var3")
ts.Close
End If
End If
If Err.Number <> 0 Then
ShowSystemAlarm "Error #" & CStr(Err.Number) & " " & Err.Description
Err.Clear
Exit Sub
End If
Code:
---------------------------------Daten kopieren------------------------------------------------
Dim f,fs
On Error Resume Next
Set f=CreateObject("Filectl.file")
Set fs=CreateObject("filectl.filesystem")
If Err.Number<> 0 Then
ShowSystemAlarm "error #" & CStr(Err.Number) & " " & Err.Description
Err.Clear
Exit Sub
End If
fs.Filecopy "\Storage Card MMC\Daten.csv"," [URL="file://\\PC_XX\Daten"]\\PC_XX\Daten[/URL]"
If Err.Number<> 0 Then
ShowSystemAlarm "error #" & CStr(Err.Number) & " " & Err.Description
Err.Clear
Exit Sub
End If
Set fs=Nothing
ShowSystemAlarm "Done"
(**** PC_XX : Rechner im Netzwerk)
Was habe ich da schief gemacht ?
(**der Panel ist ein MP377 12" Touch)