Datei wird nicht gefunden

  • VBScript

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von petaod.

    Datei wird nicht gefunden

    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.

    Quellcode

    1. '******************* AGFEO TK-Suite *****************
    2. Option Explicit
    4. ' *** Variablen ***
    6. Dim WCS
    7. Dim objFileSystem
    9. Dim Pfad_ProgramFiles
    10. Dim Pfad_TKSuite
    12. Dim Datei_TKSuite
    14. ' *** Zuweisung ***
    16. SET WCS = CreateObject("WScript.Shell")
    17. Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    19. Pfad_ProgramFiles = WCS.ExpandEnvironmentStrings("%ProgramFiles%")
    20. Pfad_TKSuite = Pfad_ProgramFiles & "\AGFEO\Tk-Suite\tools\"
    21. Datei_TKSuite = Pfad_TKSuite & "ctimon.exe"
    23. If (objFileSystem.FileExists(Datei_TKSuite)) Then
    25. WCS.Run Datei_TKSuite
    27. Else
    28. MsgBox("Agfeo-Datei nicht vorhanden")
    29. End IF

    Gruß Markus

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Westerwälder“ ()

    Hallo

    Ich tippe mal grob auf Leerzeichen im Pfad.

    Teste das jetzt nicht durch aber mal versuchen mit:

    WCS.Run """ & Datei_TKSuite & """

    Grüße
    Sascha
    If _work = worktype.hard Then Me.Drink(Coffee)
    Seht euch auch meine Tutorialreihe <WPF Lernen/> an oder abonniert meinen YouTube Kanal.

    ## Bitte markiere einen Thread als "Erledigt" wenn deine Frage beantwortet wurde. ##

    Gleiche Fehlermedlung. Habe es in VB versucht, dort geht es:

    VB.NET-Quellcode

    1. Public Sub TKSuite_Starten()
    3. Dim Datei As String = Pfade.Sonderpfade.ProgrammFiles & "\AGFEO\Tk-Suite\tools\ctimon.exe"
    4. If Not IO.File.Exists(Datei) Then Exit Sub
    5. If System.Diagnostics.Process.GetProcessesByName("ctimon").Length > 0 Then Exit Sub
    6. Shell(Datei, AppWinStyle.Hide)
    8. End Sub


    Edit:

    Script war für den Autostart-Ordner von Windows gedacht.
    Starte die Anwendung nun mit meinem VB-Programm.
    Damit hat sich die Sache erledigt, obwohl es mich ja doch interessieren würde, warum die Datei bei Run nicht gefunden wird.
    Gruß Markus

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Westerwälder“ ()

Facebook
Telefonspende