// Déclaration
W_C_CheminAnalyse 	est une chaîne = "D:\..\Analyse.wdd"
W_C_ListeFichier	est une chaîne = ""
W_C_Fichier 		est une chaîne
W_C_RepDestination	est une chaîne = "D:\TEST"
W_C_RepAImporter	est une chaîne = "E:\SupportAmovible"
i 					est un  entier
W_SD_AliasFichier	est une Source de Données


SI PAS HOuvreAnalyse(W_C_CheminAnalyse) ALORS // Ajouter mot de passe analyse si nécessaire	
	Erreur("Ouverture de l'analyse : " + HErreur())
	RETOUR
FIN

W_C_ListeFichier = HListeFichier()


SI PAS HChangeRep("*",W_C_RepDestination) ALORS
	Erreur(HErreurInfo())
FIN	

HGèreIntégrité(Faux)

i = 1
W_C_Fichier = ExtraitChaîne(W_C_ListeFichier,i,RC)
TANTQUE W_C_Fichier <> EOT
	
	HCréationSiInexistant(W_C_Fichier)
	
	SI HAlias(W_C_Fichier,W_SD_AliasFichier) ALORS	
		
		HChangeRep(W_SD_AliasFichier,W_C_RepAImporter)
		HChangeNom(W_SD_AliasFichier,W_C_Fichier)
				
		HLitPremier(W_SD_AliasFichier)
		TANTQUE PAS HEnDehors(W_SD_AliasFichier)
			SI PAS HCopieEnreg(W_C_Fichier,W_SD_AliasFichier) ALORS
				Erreur(HErreur())
			SINON
				SI PAS HAjoute(W_C_Fichier) ALORS
					Erreur(HErreurInfo())
				FIN
			FIN
			HLitSuivant(W_SD_AliasFichier)
		FIN // tantque pas hendehors(W_SD_AliasFichier)
		
		HAnnuleAlias(W_SD_AliasFichier)
		
	SINON		
		Erreur("Erreur lors de la création de l'alias sur le fichier : " + W_C_Fichier,HErreur())			
	FIN
	
	
	i ++
	W_C_Fichier = ExtraitChaîne(W_C_ListeFichier,i,RC)
FIN // tantque w_c_fichier <> eot

HGèreIntégrité(Vrai)

HAnnuleDéclaration(W_SD_AliasFichier)