FTP: Die Datei in den gleichen Ordner imopt.

Sub Test ()
Dim Path$
Path = ThisWorkbook.Path
Close
Open "d:\Login.txt" For Output As #1
Print #1, "Benutzername"
Print #1, "Passwort"
Print #1, "cd Daten"
Print #1, "cd Test"
Print #1, "ascii"
'  Print #1, "get test.txt D:\Excel\test.txt"
Print #1, "get test.txt" & Path
Print #1, "quit"
Close
Call Win32WaitTilFinished("ftp -s:d:\login.txt 212.200.140.47")
End Sub

Option Explicit
Public Const PROCESS_QUERY_INFORMATION = &H400
Public Const WAIT_TIMEOUT = &H102&
Declare

Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, _
ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Declare 

Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, _
ByVal dwMilliseconds As Long) As Long


Sub Win32WaitTilFinished(ProgEXE As String)
Dim ProcessID As Long
Dim hProcess As Long
Dim RetVal As Long
ProcessID = Shell(ProgEXE, vbHide)
hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, ProcessID)
Do
DoEvents
RetVal = WaitForSingleObject(hProcess, 50)
Loop Until RetVal  WAIT_TIMEOUT
End Sub


Kann mir jemand helfen ? Vielen Dank im Voraus.

Grüße