Traitement erreur refus d'accès [Résolu]
A voir également:
- Traitement erreur refus d'accès
- Erreur de l'accès natif mysql. numéro d'erreur = 79 - Forum - SQL
- Utilisation des Fiches (TForm) avec message d'erreur violation d'accès ✓ - Forum - Delphi / Pascal
- Décompresser archive GZIP (*.tar.gz) : erreur chemin d'accès ? ✓ - Forum - VB.NET
- Message d'erreur : violation d'accés... ✓ - Forum - C / C++ / C++.NET
- Erreur d'exécution 70 accès refusé vba - Forum - Visual Basic
18 réponses
J'ai essayé mais cela semble ne pas fonctionner à l'intérieur d'un For
et je ne peux donc pas retourner dans la routine pour traiter la suite des répertoires
Jacques
et je ne peux donc pas retourner dans la routine pour traiter la suite des répertoires
Jacques
Bonjour,
Montres le code que tu as fait avec alors, pense à la coloration syntaxique (3ième image en partant de la droite).
Mon site
Montres le code que tu as fait avec alors, pense à la coloration syntaxique (3ième image en partant de la droite).
Mon site
Si je met le Try juste avant le
For Each fichier In Directory.GetFiles(Chemin, Extension1, System.IO.SearchOption.AllDirectories)
je suis obligé de mettre le End Try après le Next de cette ligne For (Si je le met dans la boucle elle est en erreur (Pas de Next)
et lorsque j'insère dans la boucle un Catch le catch dit manquer de End Try le For manquer de Next et le End Try manquer de Try.
Désolé mais je n'ai pas saisi comment mettre en oeuvre la coloration syntaxique
Jacques
For Each fichier In Directory.GetFiles(Chemin, Extension1, System.IO.SearchOption.AllDirectories)
je suis obligé de mettre le End Try après le Next de cette ligne For (Si je le met dans la boucle elle est en erreur (Pas de Next)
et lorsque j'insère dans la boucle un Catch le catch dit manquer de End Try le For manquer de Next et le End Try manquer de Try.
Désolé mais je n'ai pas saisi comment mettre en oeuvre la coloration syntaxique
Jacques
Désolé mais je n'ai pas saisi comment mettre en oeuvre la coloration syntaxique . Quelle est cette(3ième image en partant de la droite).
Jacques
Jacques
Bonjour,
Dans la barre juste audessus de la zone de réponse, tu las les images pour mettre en gras, italique, souligné, ...
C'est la 3ième à droite.
Mon site
Dans la barre juste audessus de la zone de réponse, tu las les images pour mettre en gras, italique, souligné, ...
C'est la 3ième à droite.
Mon site
Entre temps, j'ai copié dans un fichier word a télécharger http://duarep.free.fr/download/Provisoire/Fichiers/Button6.zip
Jacques
Jacques
Private Sub Button6_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim Nbr As Integer = 0
Dim fichier As String
Dim Chemin2 As String
If RepDone = False Then
MsgBox("Donnez le répertoire à traiter")
Exit Sub
End If
If Extension1 = "" Then
MsgBox("Donnez le type d'exstension à traiter")
Exit Sub
End If
ListBox4.Items.Clear()
ListBox4.Sorted = True
'Stop
If Me.CheckBox1.Checked = True Then 'Si case sous rép cochée -> recherche dans les sous répertoire
Dim SousDos() As String = Directory.GetDirectories(Chemin)
Dim Dossier As String
For Each Dossier In SousDos
MsgBox(Dossier)
If Dossier.Contains("System Volume Information") Then
GoTo Saute
End If
Chemin2 = Dossier
For Each fichier In Directory.GetFiles(Chemin2, Extension1, System.IO.SearchOption.AllDirectories)
If RadioButton4.Checked Then
If fichier.Contains(TextBox3.Text) Then
Me.ListBox4.Items.Add(fichier)
D3(Nbr) = (fichier)
Nbr = Nbr + 1
ReDim Preserve D3(Nbr + 1) ' ne pas oublier le preserve sinon les données sont effacées
End If
Else
Me.ListBox4.Items.Add(fichier)
D3(Nbr) = (fichier)
Nbr = Nbr + 1
ReDim Preserve D3(Nbr + 1) ' ne pas oublier le preserve sinon les données sont effacées
End If
Next
Saute:
Next
Else 'Si case sous rép pas cochée = recherche uniquement dans le répertoire
For Each fichier In Directory.GetFiles(Chemin, Extension1)
If RadioButton4.Checked Then
If fichier.Contains(TextBox3.Text) Then
Me.ListBox4.Items.Add(fichier)
D3(Nbr) = (fichier)
Nbr = Nbr + 1
ReDim Preserve D3(Nbr + 1) ' ne pas oublier le preserve sinon les données sont effacées
End If
Else
Me.ListBox4.Items.Add(fichier)
D3(Nbr) = (fichier)
Nbr = Nbr + 1
ReDim Preserve D3(Nbr + 1) ' ne pas oublier le preserve sinon les données sont effacées
End If
Next
End If
End Sub
Jacques
Private Sub Button6_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim Nbr As Integer = 0
Dim fichier As String
If RepDone = False Then
MsgBox("Donnez le répertoire à traiter")
Exit Sub
End If
If Extension1 = "" Then
MsgBox("Donnez le type d'exstension à traiter")
Exit Sub
End If
ListBox4.Items.Clear()
ListBox4.Sorted = True
'Stop
If Me.CheckBox1.Checked = True Then 'Si case sous rép cochée -> recherche dans les sous répertoire
For Each fichier In Directory.GetFiles(Chemin, Extension1, System.IO.SearchOption.AllDirectories)
If RadioButton4.Checked Then
If fichier.Contains(TextBox3.Text) Then
Me.ListBox4.Items.Add(fichier)
D3(Nbr) = (fichier)
Nbr = Nbr + 1
ReDim Preserve D3(Nbr + 1) ' ne pas oublier le preserve sinon les données sont effacées
End If
Else
Me.ListBox4.Items.Add(fichier)
D3(Nbr) = (fichier)
Nbr = Nbr + 1
ReDim Preserve D3(Nbr + 1) ' ne pas oublier le preserve sinon les données sont effacées
End If
Next
Else 'Si case sous rép pas cochée = recherche uniquement dans le répertoire
For Each fichier In Directory.GetFiles(Chemin, Extension1)
If RadioButton4.Checked Then
If fichier.Contains(TextBox3.Text) Then
Me.ListBox4.Items.Add(fichier)
D3(Nbr) = (fichier)
Nbr = Nbr + 1
ReDim Preserve D3(Nbr + 1) ' ne pas oublier le preserve sinon les données sont effacées
End If
Else
Me.ListBox4.Items.Add(fichier)
D3(Nbr) = (fichier)
Nbr = Nbr + 1
ReDim Preserve D3(Nbr + 1) ' ne pas oublier le preserve sinon les données sont effacées
End If
Next
End If
End Sub
Jacques
Bonjour,
Un truc qui m'a fait peur (plus que scream et compagnie) :
If Dossier.Contains("System Volume Information") Then
GoTo Saute
End If
PAS DE GOTO dans un code sans que ce soit explicitement justifié !!!
Dans ton cas, un "Continue For" est possible.
Je pense que dans ton cas une procédure récursive serait plus adaptée.
Tes :
ReDim Preserve D3(Nbr + 1)
Laissent penser qu'un collection List(Of T) serait plus adaptée.
Pour gérer les erreurs d'accès, je pense que mettre le Try/Catch en encerclant la boucle
For Each fichier In Directory.GetFiles(Chemin2, Extension1, System.IO.SearchOption.AllDirectories)
Serait plus adapté.
Mon site
Un truc qui m'a fait peur (plus que scream et compagnie) :
If Dossier.Contains("System Volume Information") Then
GoTo Saute
End If
PAS DE GOTO dans un code sans que ce soit explicitement justifié !!!
Dans ton cas, un "Continue For" est possible.
Je pense que dans ton cas une procédure récursive serait plus adaptée.
Tes :
ReDim Preserve D3(Nbr + 1)
Laissent penser qu'un collection List(Of T) serait plus adaptée.
Pour gérer les erreurs d'accès, je pense que mettre le Try/Catch en encerclant la boucle
For Each fichier In Directory.GetFiles(Chemin2, Extension1, System.IO.SearchOption.AllDirectories)
Serait plus adapté.
Mon site
En premier, j'ai envoyé par erreur le code que j'ai modififié pour tenter de résoudre le pb
le code objet de ma demande est dans le msg précédent celui ci
Jacques
le code objet de ma demande est dans le msg précédent celui ci
Jacques
Bonjour,
D'accord, mais la solution que je propose est la même quand même (je n'ai pris que la partie avec les sous dossiers).
Mon site
D'accord, mais la solution que je propose est la même quand même (je n'ai pris que la partie avec les sous dossiers).
Mon site
Merci pour tes conseils mais je ne vois pas comment placer les catch et autres dans la boucle sans créer vles problèmes que j'ai indiqués plus haut
Jacques
Jacques
Bonjour,
Le fait de mettre le
For Each fichier In Directory.GetFiles(Chemin, Extension1, System.IO.SearchOption.AllDirectories)
dans un try/catch te permettra de gérer les erreurs d'accès.
Sinon, pour ta liste "D3", à la place d'un tableau de chaine, utilises plutôt une collection List(Of String), ce sera plus optimisé.
Mon site
Le fait de mettre le
For Each fichier In Directory.GetFiles(Chemin, Extension1, System.IO.SearchOption.AllDirectories)
dans un try/catch te permettra de gérer les erreurs d'accès.
Sinon, pour ta liste "D3", à la place d'un tableau de chaine, utilises plutôt une collection List(Of String), ce sera plus optimisé.
Mon site