bonjour a tous
ceci est ma premiere requete sur le forum dev..
En fait g un projet de "scanner ftp" ou je dois afficher le contenu d'un
ftp... pour ensuite afficher uniquement les nouveaux fichiers present sur
celui ci a chaque scan et dans toute l'arborescence a la base ...
J'ai fait ceci sans probleme : je vous met mon source pour ceux que ca
interesse ^^
////////////////////////////////////////////////////////////////////////////////////////////
Message("Connexion au ftp...")
ftpcon = FTPConnecte(Addresse,Nom_util,MDP,Port,Vrai,Timeout)
IF ftpcon = -1 THEN Info("Erreur de connection au ftp",ErreurInfo()) ; RETOUR
Message("Intégration des fichiers du ftp "+ Addresse+" en cours ...")
nfichier = FTPListeFichier(ftpcon, "/*.*", "ListeFic",FTPFichier,"/")
nrep = FTPListeFichier(ftpcon, "/*.*", "Listerep",FTPRépertoire,"")
SCAN :
FOR i = 1 TO nrep
nfichier += FTPListeFichier(ftpcon, ExtraitChaîne(rep,i,RC),
"ListeFic",FTPFichier,ExtraitChaîne(rep,i,RC)) nsubrep +=
FTPListeFichier(ftpcon, ExtraitChaîne(rep,i,RC), "Listerep",FTPRépertoire,
ExtraitChaîne(rep,i,RC)) FenRepeint() END
IF rep <> "" THEN
rep =
rep[[Position(rep,ExtraitChaîne(rep,nrep+1,RC,DepuisDébut),1,DepuisDébut) A
]] nrep = ChaîneOccurrence(rep,RC) nsubrep = 0
GOTO SCAN
END
Message("deconnection ftp...")
FTPDéconnecte(ftpcon)
Message("Intégration des fichiers terminée ! ")
Fen_scan.Libellé_nbr_ligne = "Nombre de nouveau(x) fichier(s) :
"+nb_new_fichier
////////////////////////////////////////////////////////////////////////////////////////////////
Mais on me demande d'implementer une nouvelle option qui est de selectionnez
le repertoire root du ftp qui peut etre autre que "/"... et la je narrive pas
a faire une selectione valable de la chose...
J'ai essayer avec :
fRepSélecteur("
du
repertoire site") mais cela ne marche pas il me pointe l'arborescence sur le
bureau... :/ Quelqu'un a-t'il deja ecrit une sorte de fonction
ftprepselecteur??? ou y atil une subtilité que je n'ai pas saisie avec
frepselecteur pour les ftp?
merci de votre aide