RepSource = "Remplacer ceci par le chemin du répertoire où sont les fichiers à copier" RepCible = "Remplacer ceci par le chemin du répertoire où seront copiés les fichiers à copier" Liste = "Mettre ici le chemin du fichier de liste (pa ex photo.txt)" Set fso = CreateObject("Scripting.FileSystemObject") 'Appelle la fonction qui teste la présence du fichier et des répertoires: Si RepSource ou Liste n'existe pas le script se termine 'Si RepCible n'existe pas, il est crée testparam Set fichier = fso.OpenTextFile(Liste) 'Pour chaque ligne du fichier (chaque nom de fichier à copier) on lance la fonction de copie de fichier de RepSource vers RepCible do until fichier.AtEndOfStream ligne = fichier.ReadLine copiefichier(ligne) loop sub testparam if not fso.FolderExists(RepSource) or not fso.FileExists(Liste) then wscript.echo "Le répertoire source ou le fichier de liste n'existe pas. Abandon..." wscript.quit else if not fso.FolderExists(RepCible) then fso.CreateFolder(RepCible) end if end if end sub sub copiefichier(f) if fso.FileExists(RepSource & "" & f) then fso.CopyFile RepSource & "" & f, RepCible & "" & f, True end if end sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question