PureBasic

salut a tous j'aimerai savoir si il existe des commande pour gerer la ftp?

si oui les quel ou command on fait merci

LIB FTP

http://www.reelmedia.org/cgi-bin/PurePr ... es&sub=ASM

merci

il semble que la lecture récursive avec cette lib ne soit pas faisable... mais mon code a peut-être une erreur ?

C'est du brute de décoffrage mais je suis en train de tester... le ScanDir > 3 c'est pour arrêter la récursivité lorsque le répertoire ne contient plus que (vide), "." et ".."

Code : Tout sélectionner

Procedure SynchroVersFTP(svr$,login$,mdp$,rep$)
  ResFTP = FTP_Dir(svr$,login$,mdp$,21,rep$) 
  ResLoc = ExamineDirectory(0, NomRepertoire$, Filtre$) 

  ResetList(FichierFTP()) 
  Debug "SynchroFTP : répertoire à scanner : "+rep$
  
  While ScanDirFTP(svr$,login$,mdp$,rep$) > 3
    Debug "ScanDir > 3 dans boucle principale... "
  Wend
EndProcedure

Procedure ScanDirFTP(svr$,login$,mdp$,rep$)
  ResFTP = FTP_Dir(svr$,login$,mdp$,21,rep$)
  Debug "FTP "+svr$+"("+login$+"/"+mdp$
  Debug "Scan ("+rep$+") --> "+Str(ResFTP)+" entrées."
  If ResFTP > 3
    For T = 0 To ResFTP
      TempRep$ = FTP_DirEntry(T)
      If Val(FTP_DirEntry(T,1)) And 16
        Debug "Rep Scan dans "+rep$+", trouvé : "+TempRep$
        If TempRep$ <> "." And TempRep$ <> ".."
          Debug "...nouveau scan --> "+TempRep$+ " dans "+rep$
          ScanDirFTP(svr$,login$,mdp$,rep$+TempRep$+"/")
        EndIf
      EndIf
      If Val(FTP_DirEntry(T,1)) And 128
        Debug "   File Scan "+rep$+" (F)"
        AddElement(FichierFTP())
        FichierFTP()\Repertoire   = rep$
        FichierFTP()\Fichier      = FTP_DirEntry(T)
        FichierFTP()\DateCreation = FTP_DirEntry(T,2)
        FichierFTP()\DateModif    = FTP_DirEntry(T,4)
        FichierFTP()\Taille       = FTP_DirEntry(T,5)
      EndIf
    Next T
  EndIf
  ProcedureReturn ResFTP
EndProcedure