Zuviel Werbung? - > Hier kostenlos beim SPS-Forum registrieren

Ergebnis 1 bis 3 von 3

Thema: PCS7 nach Update VBS Fehlfunktion

  1. #1
    Registriert seit
    22.07.2009
    Ort
    NRW
    Beiträge
    90
    Danke
    1
    Erhielt 6 Danke für 6 Beiträge

    Standard


    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....
    Zitieren Zitieren PCS7 nach Update VBS Fehlfunktion  

  2. #2
    Registriert seit
    09.08.2006
    Beiträge
    3.629
    Danke
    912
    Erhielt 656 Danke für 542 Beiträge

    Standard

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

  3. #3
    Registriert seit
    22.11.2012
    Beiträge
    111
    Danke
    15
    Erhielt 19 Danke für 18 Beiträge

    Standard


    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

Ähnliche Themen

  1. Antworten: 1
    Letzter Beitrag: 11.05.2015, 16:40
  2. VBS nach VB
    Von kpeter im Forum Hochsprachen - OPC
    Antworten: 0
    Letzter Beitrag: 14.04.2015, 21:15
  3. Antworten: 0
    Letzter Beitrag: 26.11.2012, 19:36
  4. Antworten: 1
    Letzter Beitrag: 15.05.2008, 00:10
  5. Update PCS7 6.0 auf 6.1
    Von holle im Forum HMI
    Antworten: 3
    Letzter Beitrag: 07.05.2006, 22:55

Lesezeichen

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •