WinCC WinCC V18 VBS-Skript - Textdatei anlegen und schreiben

Sub expand_textfile(ByRef WScript2, ByRef Write2)
    Dim fso, file, textstream 
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' ModualbarcodeNr einlesen und als Filename benutzen für Textfile
    Dim filename
    'Set filename = HmiRuntime.Screens("Bild_1").ScreenItems("EA-Feld_1")
    Set filename = SmartTags("HMI_Station1_ModualBarcodeNr_long_Short")

    
    ' Pfad zur Datei auf dem NAS-Server
    Dim filePath
    filePath ="\\192.168.0.70\C:\Users\Public\Documents\" & filename & ".txt" '"C:\Users\Public\Documents\filename.txt"
    'filePath ="C:\Users\Public\Documents\" & filename & ".txt" '"\\NAS-Server\Ordner\Datei.txt"
    
    ' Überprüfen, ob die Datei existiert
    If fso.FileExists(filePath) Then
     ' Wenn die Datei existiert, öffnen Sie sie zum Schreiben
     Set file = fso.GetFile(filePath)
     Set textstream = file.OpenAsTextStream(8, -2) ' 8 steht für ForAppending
    Else
     ' Wenn die Datei nicht existiert, neue Datei zum Schreiben erstellen
     Set textstream = fso.CreateTextFile(filePath, True) ' True steht für overwrite
    End If
    
    ' Daten schreiben in die Datei --> Write2 müsste  durch PLC geschrieben werden DatumStart;UhrzeitStart,Stationsnr., Start Spannung 
    textstream.WriteLine Write2
    textstream.Close

End Sub

 Set fso = CreateObject("Scripting.FileSystemObject")

Set fs = CreateObject("filectl.filesystem")
Set f  = CreateObject("filectl.file")

if bs = "win" then
'tue das was windows tun würde
end if
if bs = "wince" then
'tue das was windows-ce tun würde
end if

 ' Pfad zur Datei auf dem NAS-Server
    Dim filePath
    filePath ="\\192.168.0.70\C:\Users\Public\Documents\" & filename & ".txt" '"C:\Users\Public\Documents\filename.txt"
    'filePath ="C:\Users\Public\Documents\" & filename & ".txt" '"\\NAS-Server\Ordner\Datei.txt"
[CODE\]

Sub expand_textfile_winCE_v2(ByRef Write2)
'Deklaration der lokalen Variablen
Dim fo, fso, path	
	
Dim filename ' ModualbarcodeNr einlesen und als Filename benutzen für Textfile
Set filename = SmartTags("HMI_Station1_ModualBarcodeNr_long_Short")

path ="\\Iga-lt-40-mun\LW_c:\users\public\documents\TEST.txt"'"\\Iga-lt-40-mun\c:\users\public\documents\"& filename &".txt"  '"(\\192.168.0.70\C:\Users\Public\Documents\" & filename & ".txt)" '"(\\192.168.0.70\C:\Users\Public\Documents)" 

'Datei Objekt erstellen
Set fo= CreateObject("FileCtl.File")
Set fso = CreateObject("filectl.filesystem")

'If fso.dir (path)= "" Then
'	fso.mkdir(""& filename &".txt") '	
'End If

'Öffnen / Erstellen einer Datei
fo.open path , 8

'Daten werden in die Datein geschrieben
fo.LinePrint Write2

' Datei wird geschlossen
fo.Close

'Release the Object - Objekt wird freigegeben
Set fo = Nothing

ShowSystemAlarm "Storage of data was successful!"
End Sub
[CODE\]