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