Déploiement et application VB.net

Bonjour,

Alors voilà, que je vous explique:

J'ai créé une application de recherche de documents word (soit tous, soit par texte à l'intérieur du doc), la recherche fonctionnait très bien, mais l'interface "freezait", donc j'ai ajouté un thread pour que la recherche s'effectue "en parallèle" du fonctionnement normal de l'appli.

J'ai généré mon appli et je l'ai installée sur mon pc, tout allait bien.
Mais lorsque que je l'ai installée sur un autre pc, impossible de lancer une recherche de tous les docs word, alors que celle-ci fonctionnait sur mon pc, et que la recherche "textuelle" fonctionne parfaitement.

Je me suis rendu compte que tous les pc qui n'étaient pas équipés de vb bugguaient sur cette recherche.

Pour info, l'appli a été créée en vb.net avec microsoft visual basic 2010 express, sous windows XP et la version précédente (sans thread) fonctionnait sur tous les pc.

Auriez-vous une idée d'où cela pourrait-il venir? et comment résoudre ce problème svp?

Merci d'avance... :)

Vérifie si le framework cible de ton application est bien installé sur tes machines clientes.

oui, le framework est installé, car sur une machine, il ne l'était pas, et l'appli n'a pas pu se lancer, elle mettait qu'il fallait installer le framework

Première piste éliminée.

Sinon, as-tu un message d'erreur qui s'affiche ?

oui, enfin si on peut appeler ça un message d'erreur: "Synaptic a cessé de fonctionner"

J'imagine que c'est le nom de ton application ça ^^.

Bon, dans ce cas, il faut aller voir dans le journal d'évènement lié aux applications pour trouver un message d'erreur un peu plus détaillé.

Tu vois de quoi je parle ou bien c'est du chinois ?

là non je vois pas trop...

et EDIT: l'application que mes collègues devaient tester du coup ne marche pas non plus, du moins la même fonction, qui ne fonctionne que sur mon pc (celle qui recherche tous les documents)

Elle fait quoi ta fonction ?

Elle ne ferait pas appel à une dll qui ne serait pas présente sur les machines clientes ?

Sinon pour les jounaux d'évènements euh... regarde dans les outils d'administration (la flemme d'expliquer le chemin en détail XD)

non non, c'est quasiment la même qu'une autre a deux trois choses près...:

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
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
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
 On Error GoTo AuCasOuCaPlante
        nbplant = 0
        webaper.Navigate(Application.StartupPath & "\aucundoc.mht")
        Dim iss As Integer
        iss = MsgBox("La recherche demandée va rechercher tous les documents Word du répertoire choisi et risque de durer durant plusieurs dizaines de minutes, tout de même lancer la recherche?", MsgBoxStyle.OkCancel)
        If iss = vbOK Then
            If path = "W:\Administration générale\Ressources Humaines" Then
                MsgBox("Vous n'avez pas les droits d'accès sur le répertoire sélectionné!", MsgBoxStyle.Critical)
            Else
                Dim listeinterdite As System.Collections.ObjectModel.ReadOnlyCollection(Of String) 'collection avec tous les répertoires et sous-répertoires ... du path
                'Parcours tous les fichiers du répertoire interdit
                listeinterdite = My.Computer.FileSystem.GetDirectories("W:\Administration générale\Ressources Humaines", FileIO.SearchOption.SearchAllSubDirectories) 'insère tous les répertoires dans la collection
                Lstresult.Items.Clear()
                Txtsrch.Clear()
                Txtaffine.Clear()
                Lstmoisencoursresult.Items.Clear()
                Lstaffine.Items.Clear()
                Lstfiltreaut.Items.Clear()
                Lstresultacacher.Items.Clear()
                Lstresultselect.Items.Clear()
                menustripnotifyicon.Enabled = False
                NotifyIcon.BalloonTipTitle = "Synaptic - Information"
                NotifyIcon.BalloonTipText = "Recherche en cours, la fenêtre apparaîtra à la fin de la recherche"
                NotifyIcon.ShowBalloonTip(1000)
                Pictlogo.Hide()
                Lstresult.Items.Clear()
                Lstresult.BringToFront()
                Lstmoisencoursresult.Items.Clear()
                Lstresultselect.Items.Clear()
                Cbonbresult.Items.Clear()
                Cbonbresult.Hide()
                Lblaffxresult.Hide()
                Lblaffxresult2.Hide()
                tpsdebut = TimeOfDay
                Dim testinterdit As Boolean = False
                Dim nointerdit As Integer
                Dim info As String
                undoc = New Classemaclasse
                tabresultats = New Collection
                If dateavap <> 0 Then
                    Select Case dateavap
                        Case -1 : info = "avant "
                        Case 1 : info = "après "
                        Case 2 : info = ""
                        Case Else : info = ""
                    End Select
                    Lblinfodate.Text = "Documents modifiés " & info & "le " & dateutil
                    Dim mon_fichier As FileInfo
                    lblstatutrecherche.Text = "Recherche en cours..."
                    Me.WindowState = FormWindowState.Minimized
                    Lstresult.Tag = New ArrayList
                    lbldateheure.Visible = False
                    For Each doc1 In oFSO.GetFolder(path).files 'parcours les fichiers du path
                        mon_fichier = New FileInfo(path & "\" & doc1.name)
                        undoc = New Classemaclasse
                        If (InStr(1, doc1.Name, ".doc", 1) > 0) Or (InStr(1, doc1.Name, ".docx", 1) > 0) Then 'sélectionne uniquement les fichiers .doc ou .docx
                            If (InStr(1, doc1.Name, "~$", 1)) > 0 Then 'ne sélectionne pas les fichiers temporaires
                            Else
                                'pr date
                                Select Case dateavap
                                    Case -1 : If mon_fichier.LastWriteTime.ToShortDateString() < dateutil Then
                                            If InStr(path & "\" & doc1.name, "\\", CompareMethod.Text) > 0 Then
                                                undoc.setnom(doc1.name & " # Dernière Modification le " & mon_fichier.LastWriteTime.ToShortDateString())
                                                undoc.setchemin(path & doc1.name)
                                                undoc.setdate(mon_fichier.LastWriteTime.ToShortDateString())
                                                tabresultats.Add(undoc)
                                            Else
                                                undoc.setnom(doc1.name & " # Dernière Modification le " & mon_fichier.LastWriteTime.ToShortDateString())
                                                undoc.setchemin(path & "\" & doc1.name)
                                                undoc.setdate(mon_fichier.LastWriteTime.ToShortDateString())
                                                tabresultats.Add(undoc)
                                            End If
                                        End If
                                    Case 1 : If mon_fichier.LastWriteTime.ToShortDateString() > dateutil Then
                                            If InStr(path & "\" & doc1.name, "\\", CompareMethod.Text) > 0 Then
                                                undoc.setnom(doc1.name & " # Dernière Modification le " & mon_fichier.LastWriteTime.ToShortDateString())
                                                undoc.setchemin(path & doc1.name)
                                                undoc.setdate(mon_fichier.LastWriteTime.ToShortDateString())
                                                tabresultats.Add(undoc)
                                            Else
                                                undoc.setnom(doc1.name & " # Dernière Modification le " & mon_fichier.LastWriteTime.ToShortDateString())
                                                undoc.setchemin(path & "\" & doc1.name)
                                                undoc.setdate(mon_fichier.LastWriteTime.ToShortDateString())
                                                tabresultats.Add(undoc)
                                            End If
                                        End If
                                    Case 2 : If mon_fichier.LastWriteTime.ToShortDateString() = dateutil Then
                                            If InStr(path & "\" & doc1.name, "\\", CompareMethod.Text) > 0 Then
                                                undoc.setnom(doc1.name & " # Dernière Modification le " & mon_fichier.LastWriteTime.ToShortDateString())
                                                undoc.setchemin(path & doc1.name)
                                                undoc.setdate(mon_fichier.LastWriteTime.ToShortDateString())
                                                tabresultats.Add(undoc)
                                            Else
                                                undoc.setnom(doc1.name & " # Dernière Modification le " & mon_fichier.LastWriteTime.ToShortDateString())
                                                undoc.setchemin(path & "\" & doc1.name)
                                                undoc.setdate(mon_fichier.LastWriteTime.ToShortDateString())
                                                tabresultats.Add(undoc)
                                            End If
                                        End If
                                End Select
                            End If
                        End If
                    Next
 
                    Dim list As System.Collections.ObjectModel.ReadOnlyCollection(Of String) 'collection avec tous les répertoires et sous-répertoires ... du path
 
                    'Parcours tous les fichiers du répertoire
                    list = My.Computer.FileSystem.GetDirectories(path, FileIO.SearchOption.SearchAllSubDirectories) 'insère tous les répertoires dans la collection
                    'FileIO.SearchOption.SearchAllSubDirectories permet également de parcourir les sous_sous_répertoires
 
                    Dim path2 As String
 
                    For Each path2 In list 'parcours tous les sous-répertoires
                        testinterdit = False
                        nointerdit = 0
                        While testinterdit = False And nointerdit <= listeinterdite.Count - 1
                            If path2 = listeinterdite.Item(nointerdit) Then
                                testinterdit = True
                            End If
                            nointerdit = nointerdit + 1
                        End While
                        If testinterdit = False Then
                            For Each doc In oFSO.GetFolder(path2).files 'parcours tous les fichiers du répertoire courant
                                mon_fichier = New FileInfo(path2 & "\" & doc.name)
                                undoc = New Classemaclasse
                                If (InStr(1, doc.Name, ".doc", 1) > 0) Or (InStr(1, doc.Name, ".docx", 1) > 0) Then 'sélectionne uniquement les fichiers .doc ou .docx
                                    If (InStr(1, doc.name, "~$", 1)) > 0 Then 'ne sélectionne pas les fichiers temporaires
                                    Else
                                        'pr date
                                        Select Case dateavap
                                            Case -1 : If mon_fichier.LastWriteTime.ToShortDateString() < dateutil Then
                                                    If InStr(path2 & "\" & doc.name, "\\", CompareMethod.Text) > 0 Then
                                                        undoc.setnom(doc.name & " # Dernière Modification le " & mon_fichier.LastWriteTime.ToShortDateString())
                                                        undoc.setchemin(path2 & doc.name)
                                                        undoc.setdate(mon_fichier.LastWriteTime.ToShortDateString())
                                                        tabresultats.Add(undoc)
                                                    Else
                                                        undoc.setnom(doc.name & " # Dernière Modification le " & mon_fichier.LastWriteTime.ToShortDateString())
                                                        undoc.setchemin(path2 & "\" & doc.name)
                                                        undoc.setdate(mon_fichier.LastWriteTime.ToShortDateString())
                                                        tabresultats.Add(undoc)
                                                    End If
                                                End If
                                            Case 1 : If mon_fichier.LastWriteTime.ToShortDateString() > dateutil Then
                                                    If InStr(path2 & "\" & doc.name, "\\", CompareMethod.Text) > 0 Then
                                                        undoc.setnom(doc.name & " # Dernière Modification le " & mon_fichier.LastWriteTime.ToShortDateString())
                                                        undoc.setchemin(path2 & doc.name)
                                                        undoc.setdate(mon_fichier.LastWriteTime.ToShortDateString())
                                                        tabresultats.Add(undoc)
                                                    Else
                                                        undoc.setnom(doc.name & " # Dernière Modification le " & mon_fichier.LastWriteTime.ToShortDateString())
                                                        undoc.setchemin(path2 & "\" & doc.name)
                                                        undoc.setdate(mon_fichier.LastWriteTime.ToShortDateString())
                                                        tabresultats.Add(undoc)
                                                    End If
                                                End If
                                            Case 2 : If mon_fichier.LastWriteTime.ToShortDateString() = dateutil Then
                                                    If InStr(path2 & "\" & doc.name, "\\", CompareMethod.Text) > 0 Then
                                                        undoc.setnom(doc.name & " # Dernière Modification le " & mon_fichier.LastWriteTime.ToShortDateString())
                                                        undoc.setchemin(path2 & doc.name)
                                                        undoc.setdate(mon_fichier.LastWriteTime.ToShortDateString())
                                                        tabresultats.Add(undoc)
                                                    Else
                                                        undoc.setnom(doc.name & " # Dernière Modification le " & mon_fichier.LastWriteTime.ToShortDateString())
                                                        undoc.setchemin(path2 & "\" & doc.name)
                                                        undoc.setdate(mon_fichier.LastWriteTime.ToShortDateString())
                                                        tabresultats.Add(undoc)
                                                    End If
                                                End If
                                        End Select
                                    End If
                                End If
                            Next
                        End If
                    Next
                Else
                    lblstatutrecherche.Text = "Recherche en cours..."
                    Me.WindowState = FormWindowState.Minimized
                    Lstresult.Tag = New ArrayList
                    lbldateheure.Visible = False
                    Dim mon_fichier As FileInfo
                    For Each doc1 In oFSO.GetFolder(path).files 'parcours les fichiers du path
                        mon_fichier = New FileInfo(path & "\" & doc1.name)
                        undoc = New Classemaclasse
                        If (InStr(1, doc1.Name, ".doc", 1) > 0) Or (InStr(1, doc1.Name, ".docx", 1) > 0) Then 'sélectionne uniquement les fichiers .doc ou .docx
                            If (InStr(1, doc1.Name, "~$", 1)) > 0 Then 'ne sélectionne pas les fichiers temporaires
                            Else
                                If (InStr(1, doc1.Name, Txtsrch.Text, 1) > 0) Then 'recherche le texte dans le nom du fichier et si présent
                                    If InStr(path & "\" & doc1.name, "\\", CompareMethod.Text) > 0 Then
                                        undoc.setnom(doc1.name & " # Dernière Modification le " & mon_fichier.LastWriteTime.ToShortDateString())
                                        undoc.setchemin(path & doc1.name)
                                        undoc.setdate(mon_fichier.LastWriteTime.ToShortDateString())
                                        tabresultats.Add(undoc)
                                    Else
                                        undoc.setnom(doc1.name & " # Dernière Modification le " & mon_fichier.LastWriteTime.ToShortDateString())
                                        undoc.setchemin(path & "\" & doc1.name)
                                        undoc.setdate(mon_fichier.LastWriteTime.ToShortDateString())
                                        tabresultats.Add(undoc)
                                    End If
                                End If
                            End If
                        End If
                    Next
 
                    Dim list As System.Collections.ObjectModel.ReadOnlyCollection(Of String) 'collection avec tous les répertoires et sous-répertoires ... du path
 
                    'Parcours tous les fichiers du répertoire
                    list = My.Computer.FileSystem.GetDirectories(path, FileIO.SearchOption.SearchAllSubDirectories) 'insère tous les répertoires dans la collection
                    'FileIO.SearchOption.SearchAllSubDirectories permet également de parcourir les sous_sous_répertoires
 
                    Dim path2 As String
 
                    For Each path2 In list 'parcours tous les sous-répertoires
                        testinterdit = False
                        nointerdit = 0
                        While testinterdit = False And nointerdit <= listeinterdite.Count - 1
                            If path2 = listeinterdite.Item(nointerdit) Then
                                testinterdit = True
                            End If
                            nointerdit = nointerdit + 1
                        End While
                        If testinterdit = False Then
                            For Each doc In oFSO.GetFolder(path2).files 'parcours tous les fichiers du répertoire courant
                                mon_fichier = New FileInfo(path2 & "\" & doc.name)
                                undoc = New Classemaclasse
                                If (InStr(1, doc.Name, ".doc", 1) > 0) Or (InStr(1, doc.Name, ".docx", 1) > 0) Then 'sélectionne uniquement les fichiers .doc ou .docx
                                    If (InStr(1, doc.name, "~$", 1)) > 0 Then 'ne sélectionne pas les fichiers temporaires
                                    Else
                                        If (InStr(1, doc.Name, Txtsrch.Text, 1) > 0) Then 'recherche le texte dans le nom du fichier et si présent
                                            If InStr(path2 & "\" & doc.name, "\\", CompareMethod.Text) > 0 Then
                                                undoc.setnom(doc.name & " # Dernière Modification le " & mon_fichier.LastWriteTime.ToShortDateString())
                                                undoc.setchemin(path2 & doc.name)
                                                undoc.setdate(mon_fichier.LastWriteTime.ToShortDateString())
                                                tabresultats.Add(undoc)
                                            Else
                                                undoc.setnom(doc.name & " # Dernière Modification le " & mon_fichier.LastWriteTime.ToShortDateString())
                                                undoc.setchemin(path2 & "\" & doc.name)
                                                undoc.setdate(mon_fichier.LastWriteTime.ToShortDateString())
                                                tabresultats.Add(undoc)
                                            End If
                                        End If
                                    End If
                                End If
                            Next
                        End If
                    Next
                End If
 
                SortCollection(tabresultats, "nomformate", True)
                For i = 1 To tabresultats.Count
                    Lstresult.Items.Add(tabresultats(i).getnom)
                    Lstresult.Tag.add(tabresultats(i).getchemin)
                Next
                If moisencours = True Then
                    procmoisencours()
                End If
                lblstatutrecherche.Text = "Aucune recherche en cours"
                lbldateheure.Visible = True
                Me.WindowState = FormWindowState.Normal
                Me.BringToFront()
                MsgBox("Recherche terminée !", MsgBoxStyle.Information)
                Dim tpstot As String
                tpstot = (TimeOfDay - tpsdebut).ToString
 
                Dim htot As String = Mid(tpstot, 1, 2)
 
                Dim mtot As String = Mid(tpstot, 4, 2)
 
                Dim stot As String = Mid(tpstot, 7, 2)
 
                Lbltps.Text = "La recherche a duré " & htot & " heures, " & mtot & " minutes et " & stot & " secondes."
                dateavap = 0
                testaffine = True
                testauteur = False
                Lblnbresult.Text = Lstresult.Items.Count
                Btntria.Show()
                Btntrir.Show()
                Btntria.Enabled = True
                Btntrir.Enabled = True
                If Lstresult.Items.Count >= 5 Then
                    Cbonbresult.Show()
                    Lblaffxresult.Show()
                    Lblaffxresult2.Show()
                    Cbonbresult.Items.Add("Tous")
                    For i = 5 To Lstresult.Items.Count Step +5
                        Cbonbresult.Items.Add(i)
                    Next
                End If
            End If
        Else
        End If
        menustripnotifyicon.Enabled = True
AuCasOuCaPlante: nbplant = nbplant + 1
        Resume Next

EDIT: il n'y a pas les on error go to

Omg ! Ca c'est de la fonction ! ^^

Pas le temps de la passer en revue maintenant. Va regarder dans le journal des évènements (google est ton ami pour t'aider à trouver où c'est) et trouve l'erreur provoquée par ton application.

Tu y trouveras un message d'erreur qui aidera à sa résolution.

A demain (me reste 10 min ^^).

Griftou.

ok merci

le message d'erreur n'est pas très explicite, plein de ligne, plein de filenotfound et un "probleme" avec kernelbase

Y a moyen de faire un copier/coller de ce message pas très explicite ?

alors, j'ai cherché, et il semblerait que ça vienne des droits sur certains dossiers auxquels je ne doit pas avoir accès. Sauriez-vous comment, en vb.net, vérifier les droits d'accès à un dossier?

Ah ouais, faut faire gaffe à ça depuis vista.

Par contre, vu qu'on boulot on est tjs sous XP, je n'ai encore jamais été confronté au problème (je n'ai fait que lire de temps en temps des trucs sur le sujet).

Cherche sur le forum, il y a des discussions qui parlent de ça.

Griftou.

désolé, mais je ne trouve pas mon bonheur, je trouve comment les modifier mais comment faire pour savoir quels droits je possède

Je ne peux malheureusement pas t'aider plus à ce sujet là...
Va falloir fouillé un peu :-/

Alors en fait, après tests sur d'autres PC, seuls ceux qui étaient connectés avec une session précise bugguaient, donc je mets cette discussion RÉSOLUE, et je mets un lien vers une nouvelle discussion au titre plus approprié:

:ccool: ICI :)