-> Hier kostenlos registrieren
Hallo,
ich habe ein Projekt mit TIA WinCC Professional V15 erstellt. In dem Projekt gibt es eine Schaltfläche, die ein Skript auslöst, durch das eine .csv Datei in einem Ordener auf dem Server geschrieben wird. Das Skript funktioniert auf dem Server ohne Probleme. Auf diesen hat der Bediener der Anlage aber keinen Zugriff. Er arbeitet ausschließlich am Client. Und hier ist das Problem, am Client funktioniert es nicht. Durch eine selbst gebasteltet Deug-Funktion weiss ich das das Skript nach dem "Scripting.FileSystemObject" hängen bleibt. Ich habe das Skript mal angehängt. Ein ganz ähnliches Skript funktionierte vorher. Leider habe ich keine Ahnung woran es liegt. Danke im voraus und schönes Wochenende.
ich habe ein Projekt mit TIA WinCC Professional V15 erstellt. In dem Projekt gibt es eine Schaltfläche, die ein Skript auslöst, durch das eine .csv Datei in einem Ordener auf dem Server geschrieben wird. Das Skript funktioniert auf dem Server ohne Probleme. Auf diesen hat der Bediener der Anlage aber keinen Zugriff. Er arbeitet ausschließlich am Client. Und hier ist das Problem, am Client funktioniert es nicht. Durch eine selbst gebasteltet Deug-Funktion weiss ich das das Skript nach dem "Scripting.FileSystemObject" hängen bleibt. Ich habe das Skript mal angehängt. Ein ganz ähnliches Skript funktionierte vorher. Leider habe ich keine Ahnung woran es liegt. Danke im voraus und schönes Wochenende.
Function Write_0(ByVal Pfad_IN, ByVal Text_IN)
Dim fso,f
Dim objfile
Dim pfad,text
Set pfad=Pfad_IN
Set text=Text_IN
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FileExists(pfad) Then
fso.CreateTextFile pfad
End If
Set f=fso.GetFile(pfad)
Set objfile =f.OpenAsTextStream(2,-2)
objfile.WriteLine(text)
objfile.Close
Set objfile=Nothing
Set f =Nothing
Set fso=Nothing
End Function