zurzeit versuch ich mit hilfe NUM3´s lib einen kleinen FTP clienten zu proggen allerdings habe ich ein problem beim auflisten des inhaltes der auf dem server ist ich bekomme immer nur den erste Datei angezeigt!
Code: Alles auswählen
If FTP_Init()
Com_port.l=FTP_Connect("www.undmeinwapspace.de",21)
Else
Debug FTP_Last_Message()
End
EndIf
If Com_port
If FTP_Login(Com_port,"meinbenutzer","meinpass")
Debug ">>> Login Sucessful"
If FTP_List(Com_port)
Debug ">>> File List Has Follows..."
Debug FTP_Last_Message()
EndIf
End
If FTP_MakeDir(Com_port,"test")
Debug ">>> Directory created!"
EndIf
Delay(500)
If FTP_ChangeDir(Com_port,"test")
Debug ">>> Changed Directory"
EndIf
Delay(500)
If FTP_CurrentDir(Com_port)
Debug ">>> Current Directory:" + FTP_Last_Message()
EndIf
Delay(500)
Debug ">>> Sending File "
If FTP_Store(Com_port,"c:\ircchat.zip")
Debug ">>> File Uploaded..."
EndIf
Delay(500)
If FTP_List(Com_port)
Debug ">>> File List Has Follows..."
Debug FTP_Last_Message()
EndIf
Delay(500)
Debug ">>> Downloading File "
If FTP_Retrieve(Com_port,"ircchat.zip","D:\")
Debug ">>> File Saved "
Else
Debug FTP_Last_Message()
EndIf
Delay(500)
If FTP_Delete(Com_port,"ircchat")
Debug ">>> File deleted!"
EndIf
If FTP_ChangeDir(Com_port,"..")
Debug ">>> Changed Directory"
EndIf
If FTP_RemoveDir(Com_port,"test")
Debug ">>> Directory deleted!"
EndIf
Delay(500)
FTP_LogOut(Com_port)
EndIf
FTP_Close(Com_port)
Else
Debug FTP_Last_Message()
EndIf
End
mfg
netfreak