Probleme mit Programmstart von ext. Programm

  • VBScript

    Probleme mit Programmstart von ext. Programm

    Moin Zusammen,

    ich hoffe ich bin hier richtig...
    ich hab ein Problem beim Programmstart.

    Folgenden Fehler bekomm ich geworfen:
    Source:''
    Line:85 Char:4
    Error:0 ''
    ---v

    Die Stelle im Script wo es passiert ist diese:

    Quellcode

    1. WSHShell.Run(Programm),1,False

    Diese wird mir zumindes markiert, wenn ich auf View Source geh.

    Das gesamte Script sieht so aus.

    Spoiler anzeigen

    Quellcode

    1. Option Explicit
    2. DIM TMS, PatForm, API, FSO, Daten(100),fs, Programm, Export
    3. Set TMS = CreateObject("TMFTools.Support")
    4. Set PatForm = CreateObject("TMFTools.StandardFormular")
    5. Set API = CreateObject("TMFTools.API")
    6. Set FSO = CreateObject("Scripting.FileSystemObject")
    7. Set fs = CreateObject("Scripting.FileSystemObject")
    8. DIM wshshell
    10. '################### HIER EINSTELLEN BEGIN ####################################
    11. Programm = "C:\Program Files (x86)\eWaZi-Client\eWaZi-Client.exe"
    12. Export = "C:\gdt\gdt2ewazi.gdt"
    13. '################### HIER EINSTELLEN BEGIN ####################################
    15. Function Lang (Text,x)
    16. '#integriert die Länge 3 stellig vor den String (mit führender 0)#
    17. Dim i1
    18. i1=len(Text)+2+x 'x=+xStellen für länge;2=+2Stellen für CR LF
    19. i1=Right("00000"+cstr(i1),x)
    20. Lang=i1+Text
    21. End Function
    23. Function SatzLangExp(Anzahl)
    24. '#Berechnung der Gesamtlänge Exportdatei#
    25. Dim i1
    26. SatzLangExp=0
    27. For i1=0 to Anzahl
    28. if i1<>1 then
    29. SatzLangExp=SatzLangExp+Len(Daten(i1))+2
    30. End if
    31. Next
    32. SatzLangExp=SatzLangExp+15+2 ''
    33. End Function
    35. Function FillNull(Text,x)
    36. '#Setzt führende Nullen#
    37. FillNull=Right("00000"+Cstr(Text),x)
    38. End Function
    40. Sub Form_OnLoad
    41. WriteData
    42. End Sub
    44. Sub WriteData
    45. Dim uu,a,i1,DAT_File, Zusatzfelder, Pfad1, WSHShell
    48. '####### GDT ERSTELLEN ########'
    49. Zusatzfelder = 0
    50. Daten(0)=Lang("8000"+"6311",3)
    51. Daten(2)=Lang("8315",3)
    52. Daten(3)=Lang("8316"+"TurboMed",3)
    53. Daten(4)=Lang("9218"+"02.00",3)
    54. Daten(5)=Lang("3000"+Cstr(Patient.Nummer),3)
    55. Daten(6)=Lang("3100"+Left(Patient.NamensDaten.Namenszusatz,15),3)
    56. Daten(7)=Lang("3101"+Left(Patient.NamensDaten.Nachname,28),3)
    57. Daten(8)=Lang("3102"+Left(Patient.NamensDaten.Vorname,28),3)
    58. Daten(9)=Lang("3103"+Cstr(Patient.GeburtsDaten.Datum),3)
    59. 'Daten(9)=Lang(KillPoint("3103"+TMTools.FormatDateAsDDMMYYYY(Patient.GeburtsDaten.Datum)),3)
    60. Daten(10)=Lang("3104"+Left(Patient.NamensDaten.Titel,15),3)
    61. Daten(11)=Lang("3106"+Left(Patient.Asstring("%AP %AO"),30),3)
    62. Daten(12)=Lang("3107"+Left(Patient.AdressDaten.ErsterWohnsitz.StrasseHausnummer,28),3)
    63. Daten(13)=Lang("3110"+Cstr(Patient.GeburtsDaten.Geschlecht),3)
    66. Daten(1)=Lang("8100"+FillNull(SatzLangExp(15 + Zusatzfelder),5),3)
    68. DAT_FILE = Export
    69. ' uu=len(DAT_FILE)
    70. ' DAT_File = Right(DAT_FILE ,uu-4)
    71. Set a = fs.OpenTextFile(DAT_File, 2,True)
    73. For i1=0 to 15 + Zusatzfelder
    74. a.WriteLine(TMTools.AnsiToOem(Daten(i1)))
    75. Next
    76. a.close
    77. '####### GDT ENDE ########'
    80. '####### PROGRAMM START ########'
    82. Set WSHShell=CreateObject("WScript.Shell")
    83. WSHShell.Run(Programm),1,False
    85. '####### PROGRAMM START ENDE ########'
    87. formular.close
    88. End Sub


    Über tipps wäre ich sehr dankbar.

    PS:vbscript ist nicht unbedingt meine Scriptsprache, ich helfe nur einem Freund damit.


    Danke! Hat sich erledigt... Ich hab beim Programmpfad was er starten soll einfach 3 " gesetzt... Damit geht es!

    Die Frarbe rot ist moderativen Anmerkungen vorbehalten. Editiert. ~fufu
    Nein! Doch! OHH!

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „fufu“ ()

Facebook
Telefonspende