WinCC WinCC 7.5 SP2 Update 15: VBS Skript geht nicht mehr in Win11

[tarzipan7]

Zuviel Werbung?
-> Hier kostenlos registrieren

Hallo,

Unter Windows 10 lief der Skript noch ohne Probleme.
Es sollte ein ExplorerFenster, wo sich die Trendx.ini Daten befinden, geöffnet werden.
Dann kann ein Trendx.ini gewählt werden, welches dann das WinCC OnlineTtrendControl,
mit den Einstellungen versorgt.
Jetzt kommt im Skriptdiagnosefenster ein Fehler zu folgender Zeile:

Set objDLG = CreateObject("MsComDlg.CommonDialog")

Kennt jemand eine Lösung dafür?


'Open common dialog For save config file
Set objScreen = HMIRuntime.Screens(1)
Set objDLG = CreateObject("MsComDlg.CommonDialog")
If objDLG Is Nothing Then
MsgBox("Cannot open file dialog. Microsoft Common Dialog Control is not available.")
End If
Set objStaticText1 = ScreenItems("ST_Historik_Konfiguration")
objDLG.Filename = ""
objDLG.Filter = objStaticText1.Text & " (*.ini)|*.ini"
objDLG.DialogTitle = objStaticText1.Text & " - " & Item.Text
objDLG.InitDir = strFolder
objDLG.FilterIndex = 2
objDLG.MaxFileSize = 260
objDLG.CancelError = True
objDLG.Flags = cdlOFNNoChangeDir Or cdlOFNHelpButton
objDLG.ShowOpen
strFilename = objDLG.Filename
Set objDLG = Nothing

Vielen Dank

 

[adiemus84]

Evtl. kann man das Skript mal als *.vbs starten. Also einfach in eine Textdatei packen und Doppelklick drauf. Musst natürlich vorher so anpassen, dass es keine WinCC Sachen mehr verwendet.

Dann könnte man herausfinden ob es das Objekt überhaupt noch in Windows gibt oder nicht.

 

[volker]

Zuviel Werbung?
-> Hier kostenlos registrieren

als externes script gibt es folgende fehlermeldung.


Alternativ kannst du dir das mal anschauen

VBScript (Windows) Dialogbox zur Dateiauswahl

Dialogbox um eine Datei auszuwählen 'GetFileDlg 'Dim oDlg, sIniDir, sFilter, sTitle, GetFileDlgEx, rep sIniDir = "C:\\Windows\\*" 'Startverzeichnis 'wird nur * angegeben ist Startverzeichnis der aktuelle Pfad des Aufrufs sFilter = "docx|Adobe pdf (*.pdf)|*.pdf|Image files...

www.sps-forum.de

 

[tarzipan7]

als externes script gibt es folgende fehlermeldung.
Anhang anzeigen 76139

Alternativ kannst du dir das mal anschauen

VBScript (Windows) Dialogbox zur Dateiauswahl

Dialogbox um eine Datei auszuwählen 'GetFileDlg 'Dim oDlg, sIniDir, sFilter, sTitle, GetFileDlgEx, rep sIniDir = "C:\\Windows\\*" 'Startverzeichnis 'wird nur * angegeben ist Startverzeichnis der aktuelle Pfad des Aufrufs sFilter = "docx|Adobe pdf (*.pdf)|*.pdf|Image files...

www.sps-forum.de

Ich habe das auchausprobiert, vor 5Minuten und hatte die selbe Meldung.
Jetzt schau ich mir mal Deinen Link an.
Vielen Dank erstmal

 

[tarzipan7]

Hallo Volker,

ich habe jetzt mal eine Funktion zum Öffnen des richtigen Pfades hingekriegt.
Dazu noch eine Frage, wäre die Auswahl einer Datei auch mittels "Shell.Application" möglich?

 

[tarzipan7]

Zuviel Werbung?
-> Hier kostenlos registrieren

Hi, wie sieht es denn aus wenn ich ein "speichern unter" realisieren muss?
Kann ich da denselben script verwenden?