Discussion :

[remi82]

Bonjour à tous,

Je cherche à créer un service qui scrute un répertoire et ses sous répertoires. En cas de "détection" de nouveau fichier, de les copier dans un autre répertoire.

Mais je n'arrive pas à faire fonctionner fSurveilleRépertoire

Code :

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

1
2
3
SI fSurveilleRépertoire("C:\test",SurOpérationDétectée,fsCréationFichier,Vrai) = Faux ALORS 
	//Erreur(ErreurInfo()) Etant en service, je ne peux afficher le message. 
FIN

Ci-dessous, le code de la procédure "SurOpérationDétectée" généré automatiquement par Windev

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
PROCEDURE SurOpérationDétectée(sCheminRépertoire, sNomAprèsModif, nOpération, sNomAvantModif)
 
 
	SELON nOpération
		CAS fsCréationFichier
			// <Insérez ici le code du traitement lors d'une création>
 
		CAS fsModificationFichier
			// <Insérez ici le code du traitement lors d'une modification>
 
		CAS fsRenommage
			// <Insérez ici le code du traitement lors d'un renommage>
 
		CAS fsSuppressionFichier
			// <Insérez ici le code du traitement lors d'une suppression>
 
		AUTRES CAS
	FIN

Dans mon cas, je ne veux que les créations. Donc je rentre dans "CAS fsCréationFichier"
Mais je ne sais pas comment faire pour ensuite copier mes fichiers. Comment dire de les copier, et de lui dire ou les copier.

Et est-ce possible de les transférer par FTP ?

Merci par avance.

[Invité]

Pour commencer, sur ton premier code "SI MaFonction() = faux" n'est pas très naturel
Avec un SI MaFonction() on s'attend à ce qu'elle renvoie Vrai dans ce cas utilise donc plutot SI PAS MaFonction() ALORS
C'est détail

Ensuite pour copier...fCopieFichier non?
Ou alors se connecter à un FTP et copier le fichier dessus.