perte de compteur avec récursité et VB.net

Version imprimable

25/09/2007, 17h23
pimos

perte de compteur avec récursité et VB.net

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 :evilred:
en mettant le compteur en variable globale = cela ne fonctionne pas :evilred:

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

Cordialement
25/09/2007, 17h40
oyigit

on peut peut-être voir ton code ?
25/09/2007, 17h59
bidou

Static...

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

Code:

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

25/09/2007, 19h52
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.

Code:

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

Re.

Tiens au fait, balancer le code comme ça c'est moyen ...

Mais bon, moi je vois pas de probléme, ça marche bien :

Code:

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
 
Option Explicit On
Imports system.io
 
Public Class Form1
 
    Public repertoireCreer As Integer
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
 
        sauvegardeRepertoires("C:\ADD\")
        System.Windows.Forms.MessageBox.Show("Nb : " & repertoireCreer)
    End Sub
 
    Private Sub sauvegardeRepertoires(ByVal source As String)
 
        For i As Integer = 0 To My.Computer.FileSystem.GetDirectories(source).Count - 1
            Dim nomRepertoire As String = My.Computer.FileSystem.GetDirectories(source).Item(i)
            nomRepertoire = nomRepertoire.Substring(nomRepertoire.LastIndexOf("\") + 1)
 
            repertoireCreer = repertoireCreer + 1
            Console.WriteLine("création du répertoire:" & source & nomRepertoire)
            sauvegardeRepertoires(source & nomRepertoire & "\")
 
        Next
 
    End Sub
 
End Class

La vérité est ailleurs (dans le code, mais pas dans la récursivité ou la déclaration en public du nb de rep ou fichier) !

Cdt.

25/09/2007, 22h31
pimos

Citation:

Envoyé par olsimare

Tiens au fait, balancer le code comme ça c'est moyen ...

j'ai mis un peud de code mais ce n'était pas suffisant, j'en ai donc mis plus
mais il n'y a qu'une petite partie du code.
25/09/2007, 23h51
Aspic

Citation:

Envoyé par pimos

j'ai mis un peud de code mais ce n'était pas suffisant, j'en ai donc mis plus
mais il n'y a qu'une petite partie du code.

Merci d'utiliser les balises [CODE] prévues à cet effet ;)
26/09/2007, 10h40
pimos

Citation:

Envoyé par Aspic

Merci d'utiliser les balises [CODE] prévues à cet effet ;)

=> ok désolé! je vais faire attention :lol:

Quelqu'un peut-il m'aider?
26/09/2007, 16h22
pimos

je programme avec Visual Basic 2005 Express: est-ce important?
26/09/2007, 16h42
pimos

J'ai dis une bêtise.

Je m'attendais à un comportement particulier mais celui-ci n'a pas lieu d'être.

j'ai donc résolu mon problème!
merci de vos réponses!