[VB6] Mysterieuse Erreur 75

**Overcrash** · 21/07/2010, 16h05

Bonjour,

J'ai un programme qui tourne correctement, lorsque que le programme a fini sa tache principal je sauvegarde dans un .log les données suivantes

ludo 21/07/2010 14:48:52 Nombre de ligne traité 500 Version 1.1

Si mon user n'a pas accès au serveur je le sauvegarde dans un fichier en local jusqu'à ce qu'elle est la connexion dans ce cas je vide le fichier local dans le fichier log sur le serveur.
Je sais pas si je me suis bien fait compris

Dans cette fonction que je vous présente ci-après de manière aléatoire j'ai une erreur 75, chemin du fichier incorrecte. Bon ok l'erreur est explicite sauf que j'ai vérifié tous les chemins et le plus troublant a mon sens est que j'ai baliser ma fonction d'un On error goto, afin que le user ne soit pas dérangé par les erreurs, surtout que le traceur n'est pas primordiale au fonctionnement de l'application.
Quand je dis aléatoire cela veut dire que sur la meme machine l'erreur arrive 1 fois sur 5.

Voici la fonction complete :

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
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
'Option Explicit
 
 
 
 
Public Sub trackeur()     ' fonction permettant de faire le fichier .log
 
Dim NbLigneTaille As Double
 
NbLigneTaille = FormPP.txtligne
 
 
On Error GoTo glo
 
        Dim util As String            ' recup le nom user
        Dim nbli As String
        Dim rec As track
        Dim rec1 As track1
 
 
       ' Charger fichier et mettre à jour le fichier log
 
        Adressecompt = "\\Serveur2\Exploitation\Applications\Config-log\[FL]Automate_listing.log"
        On Error GoTo back
        If Dir(Adressecompt, vbNormal) = "" Then          'c'est que le fichier n'existe pas
back:
 
      ' Test sur les lettres des disque dur si pas D: ou pas de C: on n'enregistre pas.
            If Dir("C:\Program Files\Automate_Listing", vbDirectory) <> "" Then
                AdresseComptLocal = "C:\Program Files\Automate_listing\[FL]cache_automate_listing.log"  ' si sur C:
            ElseIf Dir("D:\Program Files\Automate_Listing", vbDirectory) <> "" Then
                AdresseComptLocal = "D:\Program Files\Automate_listing\[FL]cache_automate_listing.log" ' si sur D:
            Else
                Exit Sub
            End If
'
 
 
 
            If Dir(AdresseComptLocal, vbNormal) = "" Then
                   Set FSys = CreateObject("Scripting.FileSystemObject")
                   Set MonFic = FSys.CreateTextFile(AdresseComptLocal)
            End If
 
            util = Environ("USERNAME")
            nbli = "Nombre de ligne traité " & NbLigneTaille
            intfic = FreeFile
            Open AdresseComptLocal For Random As intfic Len = Len(rec)
            'Fixe les informations du client
                With rec
                    .user = util
                    .dt = Date
                    .heure = Time
                    .nbligne = nbli
                    .version = FormPP.lblver
                    .paramsaut = vbCrLf
                End With
 
                'Compte le nombre d'enregistrements
                intNum = LOF(intfic) / Len(rec)
                'Ajoute la donnée
                Put intfic, intNum + 1, rec
                'intNum + 1, rec
            Close intfic
 
    'fin fichier LOG
 
       Else
 
            If Dir(Adressecompt, vbNormal) <> "" Then
 
                Dim ligne
 
 
 
                If Dir("C:\Program Files\Automate_Listing", vbDirectory) <> "" Then
                    AdresseComptLocal = "C:\Program Files\Automate_listing\[FL]cache_automate_listing.log"  ' si sur C:
                ElseIf Dir("D:\Program Files\Automate_Listing", vbDirectory) <> "" Then
                    AdresseComptLocal = "D:\Program Files\Automate_listing\[FL]cache_automate_listing.log" ' si sur D:
                End If
 
                If Dir(AdresseComptLocal, vbNormal) <> "" Then
 
                        intfic = FreeFile()
                        Open AdresseComptLocal For Input As intfic     '
                            intfic1 = FreeFile()
                            Open Adressecompt For Random As intfic1 Len = Len(rec1)
 
                                While Not EOF(intfic)
 
                                    Input #intfic, ligne
                                    With rec1
                                        .lignerecup = ligne
                                        .paramsaut = vbCrLf
                                    End With
 
                                    'Compte le nombre d'enregistrements
                                    intNum = LOF(intfic1) / Len(rec1)
                                    'Ajoute la donnée
                                    Put intfic1, intNum + 1, rec1
                                    'intNum + 1, rec
                                Wend
 
                            Close intfic1
                        Close intfic
 
                        Kill AdresseComptLocal   ' si sur C:.
                    End If 'fin du if de test de fichier
 
 
                util = Environ("USERNAME")
                    nbli = "Nombre de ligne traité " & NbLigneTaille
                    intfic = FreeFile
                    Open Adressecompt For Random As intfic Len = Len(rec)
                    'Fixe les informations du client
                        With rec
                            .user = util
                            .dt = Date
                            .heure = Time
                            .nbligne = nbli
                            .version = FormPP.lblver
                            .paramsaut = vbCrLf
                        End With
 
                        'Compte le nombre d'enregistrements
                        intNum = LOF(intfic) / Len(rec)
                        'Ajoute la donnée
                        Put intfic, intNum + 1, rec
                        'intNum + 1, rec
                    Close intfic
            End If ' fin du if test de fichier sur serveur
        End If
    'fin fichier LOG
 
 
glo:
End Sub

L'erreur apparait sur la ligne suivante :

Code :

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

 Put intfic, intNum + 1, rec

Donc erreur 75, le chemin est incorrect ou introuvable.

Merci de votre aide

et n'hésitez pas a critiquer mon code de façon que je m'améliore

**iclic** · 21/07/2010, 17h07

Bonjour,

Oui bizarre mais... dans ton code

Code :

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

1
2
3
4
5
6
7
8
 
On Error GoTo back
        If Dir(Adressecompt, vbNormal) = "" Then   
back:
 
              .......
              ' traitement du if
        End if

Si tu as ton 'On error' , tu vas à la ligne 'Back:,

tu rentres à l'intérieur du bloc 'If sans passer par le 'If,
Pas très bon au point de vue de la structure de ton code.
Est ce que celà ne pourrait pas provoquer cette 'erreur bizarre' ?

A+

**Overcrash** · 21/07/2010, 17h11

Oui c'est vrai que ce passage est etrange, pourquoi est je fait ceci :

En faites quand je test avec ce if dans un des deux cas il me génère une erreur et c'est dans le cas ou il me la génère que je souhaite qu'il entre dans le if d'où mon On error.

Ensuite cette fonction a l'identique (sauf les chemins) est utiliser dans un autre de mes programmes similaire et je n'est jamais d'erreur 75 comme je peux avoir ici

**iclic** · 21/07/2010, 17h27

As tu testé la valeur de ta variable intfic ( qui contient d'après ton code ton numéro du buffer donné par le frefile) si elle n'est pas égale à 0 quand tu as ton erreur,ce qui pourrait provoquer le message :chemin est incorrect ou introuvable.
D'après ton code elle est bien définie par le freefile, mais on ne sait jamais...

Bonne recherche et A+

**Overcrash** · 21/07/2010, 17h36

Elle est définie par le freefile mais contient 1 lors de l'erreur j'avais tester.
C'est a cause de ca ?

**Overcrash** · 22/07/2010, 17h46

J'ai suivi tes conseils,

J'ai mis en place une meilleurs gestion des erreurs.
Et je me suis rendu compte que l'erreur venait du Open car il n'avait pas les permissions etant donné que mon fichier text étais déjà utiliser.

Pour palier a ce probleme j'ai donc créer le fichier text dans le formload et non pas dans ma fonction

Merci de ton aiguillage.

[VB6] Mysterieuse Erreur 75

VB 6 et antérieur

Discussions similaires

Partager

Partager