-> 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
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....
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....