[déplacé VB.NET -> VBS] Copie de fichier specifique dans un dossier

Résolu
coolboy2008 Messages postés 15 Date d'inscription dimanche 18 janvier 2009 Statut Membre Dernière intervention 1 décembre 2011 - 30 déc. 2009 à 15:39
coolboy2008 Messages postés 15 Date d'inscription dimanche 18 janvier 2009 Statut Membre Dernière intervention 1 décembre 2011 - 4 nov. 2010 à 23:50
Bonjour, j'aimerai cree un script vbs

j'aimerai chercher des fichier dans un dossier specifique auquelle je l'ai en liste txt ou n'importe, puis les copier dans un dossier apart.

par example je lance mon script puis il va dan le dossier PHOTO me cherche et trouve les photo que je lui est indiquer ou sur le script ou a partir d'une liste (1.jpg,3.jpg,8.jpg ect...) et fait un copy dans un autre nouveau dossier.

merci pour votre aide


" Un langage de programmation</fon

6 réponses

raymix Messages postés 4 Date d'inscription jeudi 10 décembre 2009 Statut Membre Dernière intervention 4 janvier 2010
4 janv. 2010 à 12:42
Bonjour,

Si je comprend la question, il s'agit de:
Copier des fichiers listés dans un fichiers (par exemple photo.txt) d'un emplacement (RepSource) à un autre (RepCible). Rien de terrible...

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
3
Claiyah Messages postés 580 Date d'inscription mercredi 20 août 2008 Statut Membre Dernière intervention 20 avril 2010 3
30 déc. 2009 à 17:35
salut
tu aura besoin de :
vérifier l'existence du dossier que tu va parcourir
lister les fichiers dans un dossier
et enfin copier les fichiers





Quand on pose une question on est con 5 minutes,Quand on ne la pose pas on le reste toute sa vie
0
coolboy2008 Messages postés 15 Date d'inscription dimanche 18 janvier 2009 Statut Membre Dernière intervention 1 décembre 2011
30 déc. 2009 à 17:42
on peut cree le script et ensuit moi j'intervian et je change les dossier selont le besoin.

si par example je veux copier du dossier PHOTO la liste de photo photo.txt puis les copier dans
le dossier NEW FOLDER. apres j'ai plus qua changer les dossier et le nom de la liste.

non?
0
Claiyah Messages postés 580 Date d'inscription mercredi 20 août 2008 Statut Membre Dernière intervention 20 avril 2010 3
30 déc. 2009 à 18:26
oui


Quand on pose une question on est con 5 minutes,Quand on ne la pose pas on le reste toute sa vie
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
coolboy2008 Messages postés 15 Date d'inscription dimanche 18 janvier 2009 Statut Membre Dernière intervention 1 décembre 2011
30 déc. 2009 à 18:40
tu pourrai m'aider alor a fair le script ??
" Un langage de programmation</fon
0
coolboy2008 Messages postés 15 Date d'inscription dimanche 18 janvier 2009 Statut Membre Dernière intervention 1 décembre 2011
4 nov. 2010 à 23:50
sa fai un pe longtemp mais je dois te remercier car sa marche super bien et sa maide enormement...
0