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")
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.
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
Voici mon code:
Merci pour votre aide
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
Partager