Discussion :

[MIKKA]

Bonjour,

J'aimerais savoir s'il est possible de copier un répertoire dont je ne connais pas le nom complet ?
Je sais que c'est un répertoire sous C:\ et qu'il commence par "Donnees"

En gros c'est C:\Donnees_machinTruc ou C:\Donnees2013, etc.

j'ai essayé en ligne de commande, en faisant un copy C:\Donnees* mais bien sur ça marche pas... j'ai essayé pleins de bidouilles mais comme je ne suis pas développeur je ne trouve pas comment faire !

y'a t'il une âme charitable pour m'orienter ? j'aimerais que ce soit un bat ou vbs, pour pouvoir le lancer automatiquement à l'ouverture de la session....

Merci d'avance

[l_autodidacte]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 Option Explicit
 Dim fso, Fold, subFold, NewLocation
 
 Set fso = CreateObject("Scripting.FileSystemObject")
 NewLocation = "D:\NewFolder\"
 Set Fold = fso.GetFolder("C:\")
	For Each subFold in Fold.SubFolders
	   If Left(subFold.Name, 7) ="Donnees" Then
		subFold.Copy NewLocation
	   End If
	Next
Set Fold = Nothing
Set fso = Nothing

[Menhir]

Je ne connais pas VBScript mais en VBA, j'airais écrit un truc
Variable1 = Dir("C:\Données*")

Ensuite tu vérifie si le nom que tu as récupéré est bien un répertoire et non un fichier.
Et il ne te reste plus qu'à le copier.

S'il est possible qu'il y ait plusieurs répertoires commençant par "Données", tu peux mettre un Dir() dans une boucle Do Until pour les traiter tous.

[ProgElecT]

Salut

Je ne connais pas VBScript mais en VBA, j'airais écrit un truc
Variable1 = Dir("C:\Données*")...........

Pour un .bat Ok, mais VBScrit ne connait pas cette commande.

S'il est possible qu'il y ait plusieurs répertoires commençant par "Données", tu peux mettre un Dir() dans une boucle Do Until pour les traiter tous. ...........

problème, la boucle Do ...n'est pas reconnu dans un .bat.

L'approche proposé par l_autodidacte me semble la plus judicieuse.

[MIKKA]

Merci à vous pour vos réponses
j'ai testé le script vbs...il ne se passe rien...
j'ai portant remplacé avec mes valeurs :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
 Dim fso, Fold, subFold, NewLocation
 
 Set fso = CreateObject("Scripting.FileSystemObject")
 NewLocation = "E:\SaveDonnees"
 Set Fold = fso.GetFolder("C:\")
	For Each subFold in Fold.SubFolders
	   If Left(subFold.Name, 7) ="Donnee*" Then
		subFold.Copy NewLocation
	   End If
	Next
Set Fold = Nothing
Set fso = Nothing

Par ailleurs en attendant vos réponses j'avais essayé un script dos :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
set liste_rep=liste_rep.txt
%systemdrive%
DIR /B /AD c:\Donnees* > %liste_rep%
FOR /F %%i in (%liste_rep%) do xcopy c:\%%i \\Serveur\partage\%username%\%%i /D /E /C /R /H /I /K /Y

Ça fonctionne pas mal sauf pour les fichiers contenant un espace...

Donc si vous savez pourquoi le vbs ne fonctionne pas, très bien
sinon peut être que vous avez la réponse pour mon .bat

Merci encore

[l_autodidacte]

Salut,
Il faut faire attention au Copier/Coller :If Left(subFold.Name, 7) ="Donnee*" Then à remplacer par :
If Left(subFold.Name, 7) ="Donnees" Then car les caractères génériques ne sont pas reconnues dans ce code.
Si les noms des dossiers en question ne commencent pas par "Donnees", tu n'auras pas de traitement possible.