Hallo liebe Nutzer,
ich möchte in meiner Visualisierung ein Integer (Identifikationsnummer) auswerten und ein Vereichzeichnis nach einer Datei (welche die selbe ID hat) scannen, welche dann angezeigt werden soll. Falls keine dazugehörige Datei zu finden ist, soll ein Bild angezeigt werden, dass keine Informationen zu dieser ID angelegt sind.
Ich weiß, dass es die Funktion FileExists gibt, mit welcher ich es versucht habe, jedoch komme ich nicht ans Ziel.
Muss dazu sagen, das es mein erstes mal in VB-Skript ist, also mag mein Problem vermutlich sehr einfach zu lösen sein.
Mein bisheriger Code:
Vielen Dank für eure Mühen :)
ich möchte in meiner Visualisierung ein Integer (Identifikationsnummer) auswerten und ein Vereichzeichnis nach einer Datei (welche die selbe ID hat) scannen, welche dann angezeigt werden soll. Falls keine dazugehörige Datei zu finden ist, soll ein Bild angezeigt werden, dass keine Informationen zu dieser ID angelegt sind.
Ich weiß, dass es die Funktion FileExists gibt, mit welcher ich es versucht habe, jedoch komme ich nicht ans Ziel.
Muss dazu sagen, das es mein erstes mal in VB-Skript ist, also mag mein Problem vermutlich sehr einfach zu lösen sein.
Mein bisheriger Code:
Code:
Function PictureName_Trigger(ByVal Item)
Dim expression
Dim tag1
Dim fso
Set tag1 = HMIRuntime.Tags("M1_DB908_DBW_220")
tag1.Read
expression = tag1.value
Set fso = CreateObject("Scripting.FileSystemObject")
If expression <= 1 And fso.FileExists("D:\Project\SMV\GraCS\ID1.jpg") Then
PictureName_Trigger = "ID1.jpg"
Elseif expression <= 2 And fso.FileExists("D:\Project\SMV\GraCS\ID2.jpg") Then
PictureName_Trigger = "ID2.jpg"
Elseif expression <= 3 And fso.FileExists("D:\Project\SMV\GraCS\ID3.jpg") Then
PictureName_Trigger = "ID3.jpg"
Elseif expression <= 4 And fso.FileExists("D:\Project\SMV\GraCS\ID4.jpg") Then
PictureName_Trigger = "ID4.jpg"
Elseif expression <= 5 And fso.FileExists("D:\Project\SMV\GraCS\ID5.jpg") Then
PictureName_Trigger = "ID5.jpg"
Elseif expression <= 6 And fso.FileExists("D:\Project\SMV\GraCS\ID6.jpg") Then
PictureName_Trigger = "ID6.jpg"
else
PictureName_Trigger = "KEINE_ID.jpg"
end if
End Function