Télécharger un répertoire

Herve_be 198 Messages postés mercredi 4 août 2010Date d'inscription 16 mars 2018 Dernière intervention - 17 avril 2017 à 10:47
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 

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.