ftp LIb probleme

Für allgemeine Fragen zur Programmierung mit PureBasic.
netfreak
Beiträge: 91
Registriert: 23.10.2004 18:30
Kontaktdaten:

ftp LIb probleme

Beitrag von netfreak »

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!

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

Wieso bekomme ich nicht das ganze verzeichnis aufgelistet?

mfg
netfreak
mfg
netfreak