Kopieren

Sub Kopieren()
Dim iCounter As Integer
Dim sFile As String, sPath As String
sPath = Application.DefaultFilePath & "\"
Close
Open "speichern.bat" For Output As #1
For iCounter = 1 To 2
sFile = ThisWorkbook.FullName & " "
sFile = sFile & sPath & "WorkbookDuo" & iCounter & ".xls"
Print #1, "copy " & sFile
Next iCounter
Close
Call Win32WaitTilFinished("command.com /c speichern.bat")
Kill "speichern.bat"
MsgBox "Die Dateien wurde angelegt!"
End Sub

Leider erhalte ich keine Kopie der Excel Datei.
Wenn ich die speichern.bat öffne so steht dort "zuviele Parameter".
Wo könnte hier bitte der Fehler liegen.

Danke

Josef