VBA Probleme mit Shell Befehl
11.01.2019 23:22:21
Daniel
erstmal vorab:
Das ist mein erster Beitrag in diesem tollen Forum.
Viele meiner Fragen konnten bereits geklärt werden. Dafür erstmal Danke!!
Jetzt zu meinem Problem:
Ich möchte mit einem VBA Code ein Batch file aufrufen um mit diesem Dateien von X noch Y zu verschieben. Der Quellordner und der Zielordner sollen in einem anderen Sub festgelegt werden.
Hierzu nutze ich den folgenden Code:
Sub batch_test()
Dim Batch_Pfad As String
Dim Batch_Befehl As String
Batch_Pfad = "C:\D_PLATTE\stunden_ruekmeldungen\rueckmeldung_move.bat"
Batch_Befehl = Chr(34) & Batch_Pfad & " " & Ordner_lokal_Rueckmeldung & "*.*" & " " & _
Ordner_NW_Rueckmeldung & Chr(34)
'Cells(10, 1).Value = Batch_Befehl
'MsgBox Batch_Befehl
Dim retVal
'retVal = Shell(Batch_Befehl)
retVal = Shell("C:\D_PLATTE\stunden_ruekmeldungen\rueckmeldung_move.bat C:\D_PLATTE\ _
stunden_ruekmeldungen\speicher_rueckmeldung_lokal\*.* C:\D_PLATTE\stunden_ruekmeldungen\ _
speicher_rueckmeldung_nw\")
End Sub
Nutze ich die Funktion Shell(Batch_Befehl) bekomme ich den Fehler:
Laufzeitfehler 53 Datei nicht gefunden
Wenn ich jedoch die Variable "Batch_Befehl" in eine Zelle schreibe und deren Inhalt dann direkt in den Shell Befehl kopiere funktioniert alles Prima!!
Ich verstehe das nicht so wirklich. Habt ihr eine Idee woran dass liegen kann?
Vielen Dank im Voraus!
Gruß
Daniel