PCS7 nach Update VBS Fehlfunktion

wiesel187

Level-2
Beiträge
109
Reaktionspunkte
13
Zuviel Werbung?
-> Hier kostenlos registrieren
Hat jemand eine Idee zur folgender Situation.

Ein VB Skript lief bis zur Rechner neu Inst. mit dem Skript ohne Probleme. (ca. 1 Jahr)

Alter Rechner OS: PCS7 V8.0 SP1
Win7 --> 32 oder 64 Bit ??
Neuer Rechner OS: PCS7 V8.0 SP2
Win7 32bit
ES: PCS7 V8.0 SP1 64 Bit


Code:
Option Explicit
Function action


On Error Resume Next

'Verweis auf Control1
Dim objControl
Set objControl = HMIRuntime.Screens("newpdl1.Bildfenster2:GZ").ScreenItems("Control1")

''Wert Lesen
Dim VAR
Set VAR= HMIRuntime.Tags("1234")// --> "453246"
VAR.read

Dim testFile
Dim objFSO

Set objFSO = CreateObject("Scripting.FileSystemObject")

testFile = ("C:\Bla\" & CStr(VAR.value) & ".JPG")   // -->Ergebnis Soll: 'C:\Bla\453246.JPG'
                                                   // -->Ergebnis Ist:  'C:\Bla\453246' Es fehlt '.JPG'
'# Prüfen ob Datei da
If (objFSO.FileExists(testFile)) Then 
    //File Name Setzen
    objControl.FileName = ("C:\Bla\" & CStr(VAR.value) & ".JPG")
Else
    //Nicht gefunden
    objControl.FileName = ("C:\BalBla.....   .JPG")
End If


End Function

Nach dem Update wird bei dem "testFile" das '.jpg' nicht mehr angefügt.
Es fehlt einfach ......
Sonst ist die Funktion ohne Fehler....
Nach einem Änderungsladen, wird die Funktion beim 1 Aufruf sauber durchlaufen.
Mit .jpg.
Beim 2 Durchlauf fehlt das .JPG wieder.
Wo liegt hier wohl der ......
Hat noch jemand ne Idee ??
Hab festgestellt das sich einige Dinge im Handling mit dem Update geändert haben.
Oder ist der Fehler ev. im SP1 --> SP2 / 64Bit --> 32Bit.

Bin für jeden Tipp offen.

Grüße
wiesel

P.S. Skript neu erstellen oder anders aufbauen hab ich schon Versucht....
 
Naja auf jeden Fall muessen alle Rechner die selbe pcs7 Version haben. Also ES mit sp1 und Os mit sp2 ist mist. Auch 32 und 64 Bit wuerd ich nicht unbedingt mischen. Weiterhin sollte nach einer Hochruestung der OS-Projekteditor durchlaufen werden. Aber ob das jetzt dein Problem mit dem Script löst, weiSs ich nicht. Pcs7 Hochruesten ist immer nicht ganz trivial...
 
Zuviel Werbung?
-> Hier kostenlos registrieren
Hallo,

versuche mal & CStr(VAR.value) durch eine interne Variable zu ersetzen
So ca.:
Code:
Dim Versuch123
Versuch123 = CStr(VAR.value)
testFile = ("C:\Bla\" & Versuch123 & ".JPG")

Vielleicht hilfts, hatte schon mal ein ähnliches Problem.

MFG
 
Zurück
Oben