FTP: Die Datei in den gleichen Ordner imopt.
17.11.2008 20:22:40
Edie
habe im Archiv nachfolgende Code gefunden. Es wird per FTP eine Textdatei vom Server
runtergeladen. Dabei sollte die Textdatei in den gleichen Ordner importiert werden, dazu habe
ich den Code etwas angepasst mit: Dim Path$ und Path = ThisWorkbook.Path
In der Login.txt wird der Pfad leider ohne Leerzeichen geschrieben: get test.txtD:\Excel
Meine Frage: wie lautet die korrekte Syntax? Also wie erreiche ich es, dass die Textdatei in den gleichen Ordner importiert wird?
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