Télécharger un répertoire

Messages postés
511
Date d'inscription
mercredi 4 août 2010
Statut
Membre
Dernière intervention
19 juillet 2019
-
Bonjour,
Je dois télécharger un répertoire avec ses fichiers et sous-répertoires et leurs fichiers depuis un serveur distant vers mon disque dur.
J'utilise ce code
[CODE]Set sh = CreateObject("shell.application")
Set Dest = sh.NameSpace(Destination path)
Dest.copyhere "ftp://Username:Password@ftp.folder"[/CODE]
Cela fonctionne bien, sauf qu'il est assez lent et, surtout, je dois attendre l'achèvement avant de continuer, mais il est asynchrone, donc je ne sais pas quand il est terminé.
Pour vérifier l'achèvement, j'ai essayé ceci
[CODE]Do Until sh.NameSpace("http://www.folder path").Items.Count = sh.NameSpace(destination path).Items.Count
DoEvents
Loop[/CODE] mais le premier terme est toujours nul, donc il boucle.

Avez-vous une idée pour vérifier l'achèvement de .copyhere ou un moyen plus rapide de télécharger un répertoire complet?

Merci d'avance.
Afficher la suite