ftp LIb probleme
Verfasst: 28.12.2004 22:19
Hallo,
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!
Wieso bekomme ich nicht das ganze verzeichnis aufgelistet?
mfg
netfreak
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