Hallo liebes Forum Team,
ich versuche seit geraumer Zeit eine .bat Datei in mein Makro mit einzubauen.
Die .bat Datei funktioniert alleine gut. Sie soll die Dateinamen in einem Ordner auslesen und in eine Text Datei schreiben.
Diese sieht so aus:
dir *.HTM>listezeugnisse.txt
Dies dauert normalerweise kanpp 10 Sekunden. Wenn ich die Datei mit meinem Code aufrufe schliesst sich dieser jedoch gleich wieder und erneuert nichts in meiner .txt Datei.
Mein Code sieht folgendermassen aus:
Sub test3()
Dim wsh As Object
Set wsh = VBA.CreateObject("WScript.Shell")
Dim waitOnReturn As Boolean: waitOnReturn = True
Dim windowStyle As Integer: windowStyle = 1
Dim errorCode As Long
errorCode = wsh.Run("L:\FOlder1\Folder2\liste.bat", windowStyle, waitOnReturn)
If errorCode = 0 Then
MsgBox "Done! No error to report."
Else
MsgBox "Program exited with error code " & errorCode & "."
End If
End Sub
Weis jemand Bescheid, was du schief läuft?
Wait funtioniert nicht und alle anderen Lösungsansätze sind bisher kläglich gescheitert.
Liebe Grüsse und danke schonmal im vorraus |