Hallo,
habe ein kleines Script für die Ausführung für eines externen Programmes geschrieben.
Zeile 25 bringt den Fehler: Das System kann die angegebene Datei nicht finden, obwohl ich die Existenz vorher prüfe.
habe ein kleines Script für die Ausführung für eines externen Programmes geschrieben.
Zeile 25 bringt den Fehler: Das System kann die angegebene Datei nicht finden, obwohl ich die Existenz vorher prüfe.
Quellcode
- '******************* AGFEO TK-Suite *****************
- Option Explicit
- ' *** Variablen ***
- Dim WCS
- Dim objFileSystem
- Dim Pfad_ProgramFiles
- Dim Pfad_TKSuite
- Dim Datei_TKSuite
- ' *** Zuweisung ***
- SET WCS = CreateObject("WScript.Shell")
- Set objFileSystem = CreateObject("Scripting.FileSystemObject")
- Pfad_ProgramFiles = WCS.ExpandEnvironmentStrings("%ProgramFiles%")
- Pfad_TKSuite = Pfad_ProgramFiles & "\AGFEO\Tk-Suite\tools\"
- Datei_TKSuite = Pfad_TKSuite & "ctimon.exe"
- If (objFileSystem.FileExists(Datei_TKSuite)) Then
- WCS.Run Datei_TKSuite
- Else
- MsgBox("Agfeo-Datei nicht vorhanden")
- End IF
Gruß Markus
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Westerwälder“ ()