Discussion :

[zimonn10]

Bonjour je pense que tout est dans le titre.

Donc en gros je me connecte à mon serveur FTP pour y faire des sauvegardes. A chaque connexion, je vérifie la date de création de chaque repertoire, et si celle-ci est supérieure à 15 jours je supprime le répertoire. Dans le but d'épurer mon serveur.

il existe donc une fonction FTPRepSupprime. Mais ca ne marche pas avec les fichiers en lecture seule quelqu'un voit t il une solution???

Merci d'avance..

[hpascal]

Bonjour
Est-ce que FTPSupprimeFichier fonctionne ?
Si oui, il n'y a plus qu'a utiliser FTPListeFichier et FTPSupprimeFichier

[zimonn10]

je n'ai pas essayé je vais de ce pas le faire et vou fournit une réponse ensuite

[zimonn10]

Non hélas ça ne fonctionne pas non plus, je suis désespéré....

Ce qui est clair c'est qu'ils ne sont pas supprimés car en lecture seule, c'est un peu chiant ça surtout que je suis connecté, ce n'est pas une connexion anonyme, et en plus j'ai les droits.

Enfin tout çà pour dire que, c'est dommage que cette fonction soit butée par les fichiers en lecture seule.

[klbsjpolp]

L'aide parle de conflit possible avec certain serveur FTP et suggère d'essayer d'envoyer directement la commande plutôt que d'utiliser la fonction dans ces cas. Tu as essayé?

[zimonn10]

la commande serait du style:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ftpCommande(idConnectFTp, "RD "+"cheminFichierASupprimer")

?

Si c'est le cas ça ne marche pas non plus, j'ai bien sur aussi essayé à la place du RD: rd, rmdir...

Ça ne marche pas même si le répertoire en question est vide

[zimonn10]

C'est bon ca marche avec RMD:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ftpCommande(idConnectFTp, "RMD "+"cheminFichierASupprimer")

mais encore faut il que le répertoire soit vide si ce n'est pas le cas je suppose qu'il faut le vider avant, ou bien existe t il une fonction pour forcer la suppression???

[klbsjpolp]

Je suis pas mal sûr que ftp ne permet de vider que des répertoires vides. C'est trop dangereux de perdre des fichiers sinon.

[zimonn10]

j'ai trouvé, on commence par lister tous les répertoires du serveur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ftplistefichiers=(idConnectFTP,cheminduRep,"SuppressionFichiersFTP",FTPrepertoires)

A chaque événement la fonction FTPListe fichier lance la procédure SuppressionFichiersFTP une fonction récursive comme vous allez pouvoir le voir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
PROCEDURE SuppressionFichiersFTP(NomFichierTrouve, nTaille, sAttribut, sDate, sHeure, nParam)
 
//si le truc est un rep: recursivité
 
SI sAttribut = "D" //si le fichier est un répertoire
	FTPListeFichier(idConnectFTP,NomFichierTrouve+"/","SuppressionFichiersFTP")
	FTPCommande(idConnectFTP,"RMD "+NomFichierTrouve)
SINON
	FTPCommande(idConnectFTP,"DELE "+NomFichierTrouve) 
FIN
RENVOYER Vrai

En gros si on trouve un répertoire on liste les fichiers dedans, et tous les fichiers trouvés dedans sont supprimés un par un. Lorsque tous les fichiers ont été listés, la fonction FTPListeFichiers se termine et on supprime le répertoire que l'on vient de fouiller.

Voili Voilou...