Discussion :

[gostaar]

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 :

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

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 :

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

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

[micka132]

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 :

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

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 :

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

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

[gostaar]

Super!

Ca fonctionne!

Merci beaucoup