-> Hier kostenlos registrieren
Hallo,
Ich möchte mit Hilfe eines VBSkript ein INI Datei von der SD Karte lesen. Auf der Runtime Simulation in TIA V15 hat es funktioniert.
Allerdings "life" auf dem Panel nicht.
Ich benutze ein TP 900 Comfort Panel .
Bei aktivierung des Skripts steht in den SystemMeldung (Object dosent support this property or 0 Method: <FS.GetSpecialFolder> in Zeile 6.
In dem Ausschnit macht das Skript die Probleme:
Function GetFile(ByVal FileName)
'CreateObject("Scripting.FileSystemObject")
Dim FS: Set FS = CreateObject("FileCtl.filesystem")
'Go To windows folder If full path Not specified.
If InStr(FileName, ":") = 0 And Left (FileName,2)<>"" Then
FileName = FS.GetSpecialFolder(1) & "" & FileName <--- Ich denke Windows CE welches auf dem Panel läuft unterstütz die Methode nicht. Gibt es da eine andere Methode ?
End If
On Error Resume Next
GetFile = FS.OpenTextFile(FileName).ReadAll
Kann mir da jemand weiter helfen?
Vielen Dank schon mal im voraus für die Hilfe.
Ich möchte mit Hilfe eines VBSkript ein INI Datei von der SD Karte lesen. Auf der Runtime Simulation in TIA V15 hat es funktioniert.
Allerdings "life" auf dem Panel nicht.
Ich benutze ein TP 900 Comfort Panel .
Bei aktivierung des Skripts steht in den SystemMeldung (Object dosent support this property or 0 Method: <FS.GetSpecialFolder> in Zeile 6.
In dem Ausschnit macht das Skript die Probleme:
Function GetFile(ByVal FileName)
'CreateObject("Scripting.FileSystemObject")
Dim FS: Set FS = CreateObject("FileCtl.filesystem")
'Go To windows folder If full path Not specified.
If InStr(FileName, ":") = 0 And Left (FileName,2)<>"" Then
FileName = FS.GetSpecialFolder(1) & "" & FileName <--- Ich denke Windows CE welches auf dem Panel läuft unterstütz die Methode nicht. Gibt es da eine andere Methode ?
End If
On Error Resume Next
GetFile = FS.OpenTextFile(FileName).ReadAll
Kann mir da jemand weiter helfen?
Vielen Dank schon mal im voraus für die Hilfe.