bonjour


je me fais un petit programme FTP qui fonctionne, il me manque juste la vérification si le fichier uploadé existe avant sur le ftp.

si le fichier existe , voulez vous remplacer le fichier existant
sinon uploader le fichier
je ne vois pas ou mettre le If exists ... then ....else..... end if
et surtout comment le faire.

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
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Private Sub BT_Upload_Click(sender As System.Object, e As System.EventArgs) Handles BT_Upload.Click
 
        ' télécharger un fichier sur le FTP 
        Dim user = cbuser.Text
        Dim pass = cbpassword.Text
        Dim fichlocal = tbfichier.Text
        Dim FTP = cbftp.Text
        Dim label = Label14.Text
        Dim pseudo = cbpseudo.Text
        Dim dossier = TB_Dossier.Text
        Dim choix_dossier = CBB_choix_reception.Text
 
        On Error GoTo retour
 
        If cbuser.Text = "" Or cbuser.Text = Nothing _
           Or cbpassword.Text = "" Or cbpassword.Text = Nothing _
           Or cbftp.Text = "" Or cbftp.Text = Nothing _
           Or cbpseudo.Text = "" Or cbpseudo.Text = Nothing _
           Or TB_Dossier.Text = "" Or TB_Dossier.Text = Nothing _
           Or CBB_choix_reception.Text = "" Or CBB_choix_reception.Text = Nothing _
           Or tbfichier.Text = "" Or tbfichier.Text = Nothing Then
 
            MsgBox(" veuillez entrer les données", MsgBoxStyle.Critical, " erreur")
retour:
        Else
 
 
            ' My.Computer.Network.UploadFile(fichlocal, FTP & "/" & pseudo + "/" + dossier + "/" + label, user, pass) ne pas tenir compte de cette ligne , elle ne sert à rien, je la garde sous le coude
 
            Dim request As FtpWebRequest = DirectCast(WebRequest.Create(FTP & "/" & pseudo + "/" + dossier + "/" + label), WebRequest)
            request.Credentials = New NetworkCredential(user, pass)
            request.Method = WebRequestMethods.Ftp.UploadFile
 
            Dim file() As Byte = ReadAllBytes(fichlocal)
 
            Dim strz As System.IO.Stream = request.GetRequestStream()
            strz.Write(file, 0, file.Length)
            strz.Close()
            strz.Dispose()
            MsgBox("Fichier téléchargé", MsgBoxStyle.Information, "Uploaded")
 
            tbchemin.Text = ("http://pcland.fr/" & choix_dossier & "/ "  & pseudo & "/" & dossier & "/" & Label14.Text)
        End If
 
    End Sub
merci pour votre aide