Discussion :

[pimos]

Bonjour,

J'ai créé un programme qui scanne un répertoire source et le copie dans un répertoire destination. avec vérification des derniers dossiers et fichiers MAJ et suppression dans la sauvegarde des fichiers qui n'existent plus.

J'ai une boucle récursive qui traite un dossier puis un sous-dossier puis un sous-dossier....
Dans cette récursivité je mets un compteur à jour "cpt". A chaque fois que je créée un fichier je fait cpt=cpt+1.
Mais mon compteur fait toujours 1, cependant le code a créé un fichier dans le dossier de départ puis 8 fichiers dans les sous-dossiers.

en passant le compteur en référence (byref)=cela ne fonctionne pas
en mettant le compteur en variable globale = cela ne fonctionne pas

une idée???? pour résoudre mon bug

Cordialement

[oyigit]

on peut peut-être voir ton code ?

[bidou]

Static...

[pimos]

voici un morceau de mon code:
mon compteur ici c'est "repertoireCreer"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
        'traitement de chaque dossier du répertoire-------------------------------------------------------------------------
        For i = 0 To My.Computer.FileSystem.GetDirectories(source).Count - 1
            nomRepertoire = My.Computer.FileSystem.GetDirectories(source).Item(i)
            nomRepertoire = nomRepertoire.Substring(nomRepertoire.LastIndexOf("\") + 1)
            'le répertoire n'existe pas
            If My.Computer.FileSystem.DirectoryExists(destination & nomRepertoire) = False Then
                My.Computer.FileSystem.CopyDirectory(source & nomRepertoire, destination & nomRepertoire)
                repertoireCreer = repertoireCreer + 1
                If LOG = 1 Then
                    ecrireLog("création du répertoire:" & source & nomRepertoire)
                End If
            End If
            sauvegardeRepertoires(source & nomRepertoire & "\", destination & nomRepertoire & "\")
        Next

[olsimare]

Bonjour.

Initialement, je cherchais la récursivité.

Puis je me suis dit que tout ce code devait être dans la sub sauvegardeRepertoires().

Par contre, je ne vois pas la déclaration explicite de repertoireCreer.

Ou est-ce fait ? Si tu ne déclares pas repertoireCreer, sa portée est ta sub et là sa explique ton probléme.

Un conseil : option explicit et option strict on

Cdt.

[pimos]

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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
Option Explicit On
 
Imports system.io
 
Module Main
    Public fichiersMisAJour As Integer
    Public fichierCreer As Integer
    Public fichierSupprimer As Integer
    Public repertoireCreer As Integer
    Public repertoireSupprimer As Integer
 
    Sub Main()
…
       '----------------------------------------------------------------------
        'lancement de la sauvegarde
        erreur_pendant_sauv = 0
        sauvegardeRepertoires(source, destination)
 
        If erreur_pendant_sauv > 0 Then
…
        GoTo fin
errortrt:
…
fin:
…
    End Sub
 
    Sub sauvegardeRepertoires(ByVal source As String, ByVal destination As String)
 
        On Error GoTo erreurfic
        'traitement de chaque fichier du répertoire-------------------------------------------------------------------------
        For i = 0 To My.Computer.FileSystem.GetFiles(source).Count - 1
            nomFichier = My.Computer.FileSystem.GetFiles(source).Item(i)
            nomFichier = nomFichier.Substring(nomFichier.LastIndexOf("\") + 1)
            'le fichier n'existe pas
            If My.Computer.FileSystem.FileExists(destination & nomFichier) = False Then
                My.Computer.FileSystem.CopyFile(source & nomFichier, destination & nomFichier)
                fichierCreer = fichierCreer + 1
                If LOG = 1 Then
                    ecrireLog("copie du fichier:" & source & nomFichier)
                End If
            Else
                fisource = New FileInfo(source & nomFichier)
                fidestination = New FileInfo(destination & nomFichier)
                dateSource = fisource.LastWriteTime
                dateDestination = fidestination.LastWriteTime
                fisource = Nothing
                fidestination = Nothing
                If dateSource > dateDestination Then
                    My.Computer.FileSystem.DeleteFile(destination & nomFichier)
                    My.Computer.FileSystem.CopyFile(source & nomFichier, destination & nomFichier)
                    fichiersMisAJour = fichiersMisAJour + 1
                    If LOG = 1 Then
                        ecrireLog("Mise à jour du fichier:" & source & nomFichier)
                    End If
                End If
            End If
        Next
 
        On Error GoTo erreurRep
        'traitement de chaque dossier du répertoire-------------------------------------------------------------------------
        For i = 0 To My.Computer.FileSystem.GetDirectories(source).Count - 1
            nomRepertoire = My.Computer.FileSystem.GetDirectories(source).Item(i)
            nomRepertoire = nomRepertoire.Substring(nomRepertoire.LastIndexOf("\") + 1)
            'le répertoire n'existe pas
            If My.Computer.FileSystem.DirectoryExists(destination & nomRepertoire) = False Then
                My.Computer.FileSystem.CopyDirectory(source & nomRepertoire, destination & nomRepertoire)
                repertoireCreer = repertoireCreer + 1
                If LOG = 1 Then
                    ecrireLog("création du répertoire:" & source & nomRepertoire)
                End If
            End If
            sauvegardeRepertoires(source & nomRepertoire & "\", destination & nomRepertoire & "\")
        Next
 
…
    End Sub