Bonjour,

Je viens de commencer le VBScript alors voilà:

J'arrive a copier tous les fichiers d'une arborescence dans un répertoire:

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
 
Set FSO=CreateObject("Scripting.FileSystemObject")
StrDestination = "c:\test2"
ParcoursRep("C:\test\")
 
Function ParcoursRep(rep)
       Set objFolder = FSO.GetFolder(rep)
    If objFolder.SubFolders.Count <> 0 Then
        For Each Folder In objFolder.SubFolders
        ParcoursRep(Folder)
        Next
    End If
    Set objFiles = objFolder.Files
    For Each objFile in objFiles
         FSO.CopyFile objFile.path,strDestination & "\" & objFile.name
       Next
End Function
Par conter après pour faire un contrôle si le fichier existe, et si il existe avoir une box pour modifier, et j'aimerais en plus avoir un log qui me donne les fichiers modifiés avec le chemin et le nom copié.
Je pensais utiliser Fileexists mais je vois pas comment faire.

Merci d'avance pour votre aide,

Hervoi