Discussion :

[Eva01]

Voila j'ai réussis grâces a des sources et au cours proposées sur developpez.com à fair une petite appli de maj de mes dossiers.
Cependant j'ai un petit soucie sur un bout de code ne m'appartenant pas en ce qui concerne sa personalisation. Je m'explique, j'aimerai que les fichiers copié n'ailles pas dans le repertoires ciblé mais dans un autres.

je présume que c'est évidement cette ligne à modifier CopyFile FileTrouve, FileVerif, 0
mais malgrès mes efforts, et surement avec la fatigue cumulée de la journée j'avoue bloquer un petit peu.
Surement du à une mal compréhension du code.

N'hésitez pas à me donner un coup de main ou à m'éclaircir les idées pour que je puisse me débrouiller seul.

Voici la fonction utilisant ma fonction ci-dessous

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
36
37
38
39
40
41
42
43
44
45
46
Function FindFile(ByVal sFol As String, sFile As String)
 
Dim tFld As Folder
Dim FileName As String
Dim FileVerif As String
Dim FileTrouve As String
Dim Pos As Long
 
        Set fld = fso.GetFolder(sFol)
 
        FileName = Dir(fso.BuildPath(fld.Path, sFile), vbNormal Or vbHidden Or vbSystem Or vbReadOnly)
 
 
        While Len(FileName) <> 0
 
            FileTrouve = fso.BuildPath(fld.Path, FileName)
 
            Pos = Len(ValRep1)
 
            FileVerif = ValRep2 & Right(FileTrouve, Len(FileTrouve) - Pos)
 
            If FileExist(FileVerif) = False Then
                CopyFile FileTrouve, FileVerif, 0
            Else
                If FileDateTime(FileTrouve) > FileDateTime(FileVerif) Then
                    CopyFile FileTrouve, FileVerif, 0
                End If
            End If
 
            FileName = Dir()  ' Get next file
            DoEvents
 
        Wend
 
       If fld.SubFolders.Count > 0 Then
            For Each tFld In fld.SubFolders
                Pos = Len(ValRep1)
                If DirectoryExist(ValRep2 & Right(tFld, Len(tFld) - Pos)) = False Then
                    MkDir ValRep2 & Right(tFld, Len(tFld) - Pos)
                End If
                DoEvents
                FindFile = FindFile + FindFile(tFld.Path, sFile)
            Next
       End If
 
End Function

[ucfoutu]

Bonsoir,

Tu nous montres là un sacré mélange de tout !

Il vaudra mieux que tu nous expliques très clairement et très simplement les tenants et les aboutissants de cette démarche...
Et nous serons alors à même de te proposer une démarche plus simple.


EDIT : sans compter le fait que je me demande de quel chapeau sort la variable ValRep2 ...