Discussion :

[migau]

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

[ShadowTzu]

avec ftpwebrequest tu peux faire tout ce que tu veux:

Code vb :

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
Public Function FtpFileExist(Url_Filename As String, Login As String, Password As String) As Boolean
 
        Dim req As FtpWebRequest = CType(FtpWebRequest.Create(Url_Filename), FtpWebRequest)
        Dim FileName As String = Url_Filename.Substring(Url_Filename.LastIndexOf("/") + 1)
        req.Method = WebRequestMethods.Ftp.DownloadFile
        req.Credentials = New System.Net.NetworkCredential(Login, Password)
        Dim resp As FtpWebResponse = Nothing
        Try
            resp = CType(req.GetResponse, FtpWebResponse)
        Catch ex As Exception
            Return False
        End Try
 
        If resp.StatusDescription.Contains(FileName) Then
            FtpFileExist = True
        Else
            FtpFileExist = False
        End If
 
        resp.Close()
        resp.Dispose()
        resp = Nothing
        req = Nothing
    End Function

[migau]

bonjour

merci beaucoup pour ton aide.

j'ai trop de lacunes encore pour me lancer dans ce genre de code, et comme je ne souhaite pas de code clé en main
je continue à travailler en espérant y arriver un jour.

je te renouvelle mes remerciements

bonne journée