La condition IF ne s'applique pas correctement VB.Net

Bonjour,

Je suis nouvelle sur le forum et je suis en train de faire un programme de gestion pour notre entreprise (uniquement pour notre usage).

Je voudrais remplacer une image:
--> si elle existe déjà dans le répertoire (label3.Text = "oui")
Ou créer l'image dans le répertoire:
--> si elle n'existe pas (label3.Text = "non")

Code:

---

1 2 3 4 5

If My.Computer.FileSystem.FileExists("C:\Users\Delphine\Documents\Visual Studio 2012\Projects\Facturation\bin\Debug\Document\" & NumDocumentTextBox.Text & NomDocumentTextBox.Text & ".jpg") Then Label3.Text = "Oui" Else Label3.Text = "Non" End If

---

Le problème est que lorsque j'appuie sur mon button_1, soit il me met "voulez-vous remplacer le fichier?" (ça c'est correct), mais lorsque l'image n'existe pas, rien ne se passe.

Voici mon code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click dbconn.ConnectionString = "Data Source=ACERDEDE;Initial Catalog=BasedeDonnees;Integrated Security=True" adt = New SqlDataAdapter("update Document set NomDocument = '" + NomDocumentTextBox.Text + "', NomExpediteur = '" + NomExpediteurTextBox.Text + "', DateExpediteur = '" + DateExpeditionTextBox.Text + "', Commentaire = '" + CommentaireTextBox.Text + "' WHERE NumDocument like '" + NumDocumentTextBox.Text + "'", dbconn) adt.Fill(ds) If Label3.Text = "oui" Then Dim reponse = MsgBox("Voulez-vous remplacer le fichier existant?", vbYesNo, "Enregistrement") If reponse = vbYes Then My.Computer.FileSystem.DeleteFile("C:\Users\Delphine\Documents\Visual Studio 2012\Projects\Facturation\bin\Debug\Document\" & NumDocumentTextBox.Text & NomDocumentTextBox.Text & ".jpg") Me.Close() ElseIf Label3.Text = "non" Then File.Copy(textPath.Text, "Document\" & NumDocumentTextBox.Text & NomDocumentTextBox.Text & ".jpg") Me.Close() End If ' Document4.DocumentTableAdapter.Fill(Document4.BasedeDonneesDataSet.Document) End Sub

---

Merci pour votre aide

Là dans le code que tu fournis il ne devrait rien se passer, sauf si tu n'appelles jamais ta premiere fonction (celle qui définis à Oui ou Non) et que par défaut ton label3.text = "oui".
La différence subtile, est que dans un cas tu utilises des majuscules, alors que dans ton test tu utilises des miniscules.

Je te conseille de passer par des constantes que tu utiliseras partout ou tu veux tester une egalité sur le contenu du label.

Code:

---

1 2 3

private string const LABEL_OUI="Oui"; private string const LABEL_NON="Non";

---

Mais de manière générale on ne se base pas sur le contenu du label parceque si demain tu n'affiches plus ce label ton programme ne fonctionnera plus sans faire des modifications partout.

Il faut que tu fasses une fonction type bool qui va servir uniquement à savoir si le fichier est présent ou non.

Code:

---

1 2 3 4

Function IsFilePresent As Bool Return My.Computer.FileSystem.FileExists("C:\Users\Delphine\Documents\Visual Studio 2012\Projects\Facturation\bin\Debug\Document\" & NumDocumentTextBox.Text & NomDocumentTextBox.Text & ".jpg") End Function

---

et tu appelles cette fonction partout ou tu en as besoin.

Tu as d'autre problème dans ton code, par exemple tu utilises un chemin entier qui ne fonctionnera donc que dans ton projet de debug.
Tu devrais également utiliser des paramètres pour la requetes SQL pour en rendre la lecture plus agréable et pour plus de sécurité.
https://docs.microsoft.com/en-us/dot...ter-parameters

Super!

Ca fonctionne!

Merci beaucoup :D