Discussion :

[L4ur3nt]

Bonsoir,

J'ai un dossier principal qui contient plusieurs sous-dossiers.

Je souhaite faire une copie du dossier principal sans les fichiers avec l'extension .doc et . xls

quelle est selon vous la méthode la plus rapide?

[Flamby38]

je pense que le plus simple c'est de faire une copie intégrale puis de faire un delete des fichiers doc avec la commande delete /S *.doc (le commutateur /s indique que ca va parcourir les sous-dossiers).

[keuloud]

Le plus simple j'suis du même avis que Flamby.

Par contre, pas sure que ça soit bien optimisé, si tu as beaucoup de .doc et .xls, et de taille importante, il vaut peut être mieux recrée un dossier, puis passer les fichiers un par un et copier si ils ne finissent pas par ".xls" ou ".doc".

[L4ur3nt]

Le plus simple j'suis du même avis que Flamby.

Par contre, pas sure que ça soit bien optimisé, si tu as beaucoup de .doc et .xls, et de taille importante, il vaut peut être mieux recrée un dossier, puis passer les fichiers un par un et copier si ils ne finissent pas par ".xls" ou ".doc".

oui justement. Certains sont de grandes tailles.

j'essaie d'utiliser la récursivité . J'ai bien tous les fichiers et les dossiers que je dois copier mais pour le moment je n'arrive pas à avoir la même l'arborescence.
En effet tous mes sous-dossiers se mettent à la racine du dossier que je crée...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
strFolder = "C:\test"
 
Dim oFlde,ft
 
Const ForWriting = 2
 
set objFSO = createobject("Scripting.FileSystemObject")
 
GetFiles strFolder
 
sub GetFiles(byval strDirectory)
	set objFolder = objFSO.GetFolder(strDirectory)
	for each objFile in objFolder.Files
             If objFile.Type = "Fichier txt" then 
                 (je passe mon tour)
                else
               st1 = "C:\Users\M01\Desktop\Backup\"
               st2 = st1 & objFolder.Name                     
               st3 = st2 & "\" & objFile.Name  
 
 
                 if objFSO.FolderExists(st2) then 
 
                    else
                  Set oFlde = objFSO.CreateFolder(st2)
                 End If
               Set ft = objFSO.OpenTextFile(st3, ForWriting,true)
 
             End If
	next	
	for each objFolder in objFolder.SubFolders
             		GetFiles objFolder.Path
	next
end sub

Voila ou j'en suis pour le moment.

[SfJ5Rpw8]

ton code ne correspond pas à ta description ... je ne vois aucune instruction de copie de fichier ...
et pourquoi créé tu un fichier texte ??

[L4ur3nt]

Voila ou j'en suis

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
strFolder = "C:\test"
Dim oFlde,cop
 
set objFSO = createobject("Scripting.FileSystemObject")
 
GetFiles strFolder
 
sub GetFiles(byval strDirectory)
	set objFolder = objFSO.GetFolder(strDirectory)
	for each objFile in objFolder.Files
                wscript.echo objFile.Type
             If objFile.Type = "Document texte" then 
 
                else
               st1 = "C:\Users\M01\Desktop\Backup\"
               st2 = st1 & objFolder.Name                     
               st3 = st2 & "\" & objFile.Name  
 
 
                 if objFSO.FolderExists(st2) then 
 
                    else
                  Set oFlde = objFSO.CreateFolder(st2)
                  End If
 
               objFSO.CopyFile objFile.Path,st3,True
 
 
             End If
	next	
	for each objFolder in objFolder.SubFolders
                 wscript.echo objFolder.Path
		GetFiles objFolder.Path
	next
end sub

je commence en essayant de copier le contenu de "C:\test" dans le dossier backup en omettant les fichiers textes...

[SfJ5Rpw8]

il y as un problème dans le calcul de ton répertoire de destination, tu oublie les sous répertoires ...

[L4ur3nt]

il y as un problème dans le calcul de ton répertoire de destination, tu oublie les sous répertoires ...

oui je vois bien mais je n'arrive pas à récupérer le chemin exact...

[SfJ5Rpw8]

Tu peu donner ce répertoire en paramètre dans ton code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub GetFiles(ByVal strDirectory, ByVal strSousRep)
...
             st1 = "d:\tmp\Backup"
               st2 = st1 & strSousRep
               st3 = st2 & "\" & objFile.Name
...
  For Each objFolder In objFolder.SubFolders
        GetFiles objFolder.Path, strSousRep & "\" & objFolder.Name
    Next
...

pour créer le répertoire de destination ton code cause problème lorsqu'un sous répertoire ne comporte pas de fichier mais seulement des sous-dossier, utilise le code extrait de la faq :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
(..)
                 If Not objFSO.FolderExists(st2) Then
                     CreerRep st2
                  End If
 
               objFSO.CopyFile objFile.Path, st3, True
(...)
 
Sub CreerRep(Chemin)
    If Not objFSO.FolderExists(Chemin) Then
        CreerRep (objFSO.GetParentFolderName(Chemin))
        objFSO.CreateFolder (Chemin)
    End If
End Sub

[L4ur3nt]

Merci cela fonctionne.
Maintenant je vais essayer de comprendre le code...