Bonjour ! Voici mon problème : dans ce code lorsque je clique sur le "Button1" j'obtiens une MsgBox me demandant si je suis sûr de vouloir supprimer le fichier (pour l'instant tout fonctionne) mais lorsque j'appui sur oui un message arrive et me dit opération annulée (alors que j'ai cliqué sur oui) mais quand je vais regarder le fichier est supprimé (???). Et quand je clique sur non j'ai encore le message opération  annulée mais le fichier est quand-meme supprimé. Merci de m'aider

Public

Class Form1

PrivateSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

FichierAOuvrir.ShowDialog()

EndSub

PrivateSub FichierAOuvrir_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles FichierAOuvrir.FileOk

TextBox1.Text = FichierAOuvrir.FileName

Button1.Enabled =

True

EndSub

PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If RadioButton1.Checked = TrueThen

MsgBox(

"Voulez-vous vraiment supprimer le fichier ?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Confirmation")

EndIf

If MsgBoxResult.Yes Then

My.Computer.FileSystem.DeleteFile(TextBox1.Text, _

FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.DeletePermanently)

RadioButton1.Checked =

False

RadioButton2.Checked =

False

EndIf

If MsgBoxResult.No Then

MsgBox(

"Opération annulée.", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "")

EndIf

If RadioButton2.Checked = TrueThen

My.Computer.FileSystem.DeleteFile(TextBox1.Text, _

FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.SendToRecycleBin)

RadioButton1.Checked =

False

RadioButton2.Checked =

False

EndIf

EndSub

End

Class

Désolé mais quelques Private Sub , End If , End Sub se sont collés ce qui n'est pas le cas dans mon code.

Réponse acceptée !
Bonjour

Ne met pas réponse acceptée si ton pb n'est pas solutionné, sinon tu ne risque de ne pas avoir bcp de réponse.

1) MsgBoxResult.Yes est toujours vrai (pense à mettre Option Explicit et Option strict à ON)
Il faut que tu enregistre le retour de ta boite de dialogue :
Dim MonRetour as MsgBoxResult
MonRetour=Messagebox.Show(...)
If MonRetour=MsgBoxResult.Yes Then

2)
- Si tu répond Oui : tu supprime définitivement le fichier
- Si Tu répond non tu ne supprime pas définitivement le fichier
- Si RadioButton2.Checked=True, tu envoie le fichier à la corbeille

3) EVITE LES NOMS PAR DEFAUT :
OptCorbeille est plus clair que RadioButton1

4) TU es en VB.NET et non VB6, fais gaffe à la catégorie

5) Tu as pensé aux checkbox ?


Dans Word, j'Excel. (juste pour la citation)
VB (6, .NET1&2), C++, C#.Net1
Mon site

Ca fait beaucoup de choses mais une fois testé ca marche !

Je met en réponse acceptée ! (J'espère que je ne me trompe pas !)