Function nDir(FtpStream)
; Lokale Variablen
Local Result$ ; Rückgabe vom Server
Local DataStream ; Der Daten Stream

; Fragt nach einer neuen Daten Verbindung
WriteLine FtpStream,"PASV"
Print ReadLine(FtpStream)

DataStream = FtpDataConnect(Result) ;-- Erstelle zweite Verbindung

; Bereitet den Server auf das Empfangen vor
WriteLine FtpStream,"NLST"

Print ReadLine(FtpStream) ;=150

While Not Eof(DataStream)
Print ReadLine(DataStream) ;=Ausgabe der Dateien OK
Wend

; Gibt den Datenstrom wieder frei
CloseTCPStream DataStream
End Function

Function FtpDataConnect(IPP$)

; Die Funktion entschlüsselt IP und Port, verbindet dorthin und gibt den Handle zurück
Local Connection
Local IP$
Local Port$
Local Count
Local StrPos
Local Buffer$

; Prüft, ob die ersten drei Zeichen 227 sind
If Left(IPP,3) = 227 Then
; Kopiert den Abschnitt mit den Klammern auf dem String
StrPos = Instr(IPP,"(",1)
Buffer = Right(IPP,Len(IPP)-StrPos)

; Entfernt die Klammern
Buffer = Left(Buffer,Len(Buffer)-1)

; Trennt IP und Port Teil
StrPos = 0
For Count = 1 To 4 Step 1
StrPos = Instr(Buffer,",",StrPos+1)
Next

; Nach dem vierten Kommata steht der Port Code
IP$ = Left(Buffer,Len(Buffer)-(Len(Buffer)-StrPos)-1)
Port = Right(Buffer,Len(Buffer)-StrPos)

; Ersetzt die Kommata durch Punkte für korrekte IP Angabe
IP$ = Replace(IP$,",",".")

; Ermittelt die korrekte Port Nummer
Buffer = Port
StrPos = Instr(Buffer,",",1)
Port1$ = Left(Buffer,StrPos-1)
Port2$ = Right(Buffer,Len(Buffer)-StrPos)
Port = Int(Port1)*256+Int(Port2)
Ausgabe("Verbinde nach "+IP+" mit Port "+Port)
Connection = OpenTCPStream(IP$,Port)
Return Connection
Else
; Konnte keine Verbindung aufbauen
Return 0
EndIf

End Function