German ABFTP Download functioniert nicht immer

[rainerohl]

ABFTP Download functioniert nicht immer (gelöst)

Hallo User,
jetzt habe ich mir fast die ganze Nacht um die Ohren geschlagen,aber ich
finde einfach den Fehler nicht. Bitte nochmal um Hilfe.

folgender Code läuft bei mir:

Sub DownLoad_Dateien
Dim myFTP As ABFTP
Dim sdRoot ,FTPRoot As String

myFTP.ABFTPConnect("212.172.221.10",21, "web633", "meinPaßwort")
If myFTP.ABFTPConnected = True Then
Msgbox("Connected", "")
Else
Msgbox(myFTP.ABFTPLastError, "")
End If


sdRoot = File.DirRootExternal & "/Fahrschule/"
FTPRoot = "/Fahrschule-Files/"


myftp.ABFTPDownload(FTPRoot,"SchuelerDB.txt",sdRoot,"SchuelerDB.txt")
If myftp.ABFTPLastError <> "" Then
Msgbox(myftp.ABFTPLastError,"")
Else
Msgbox("Schueler Datei Downloaded!","")
End If


myftp.ABFTPDownload(FTPRoot,"FahrstdDB.txt",sdRoot,"FahrstdDB.txt") ' FahrstdDB.txt

If myftp.ABFTPLastError <> "" Then
Msgbox(myftp.ABFTPLastError,"")
Else
Msgbox("Fahrstunden Downloaded!","")
End If


Der 1. Download functioniert einwandfrei.
Beim 2. Download kommt folgende Fehlermeldung:
"NULLPointerException"

Die Datei FahrstdDB.txt liegt einwandfrei auf dem Server. Mit einem FTP Programm lässt sie sich auch einwandfrei herunterladen und in meinen Ordner
kopieren.
Wo liegt das Problem?????
mmit freundlichen Grüßen Rainer

 

[Heinz]

Ist das nur ein Tipp - oder Kopierfehler
oder steht das auch so im code ?

myftp.ABFTPDownload(FTPRoot,"SchuelerDB.txt",sdRoo t, "SchuelerDB.txt")

meine das sdRoo t
da ist ein Blank dazwischen.

 

[rainerohl]

Nein, steht richtig im Code (ohne Blank)