Bonjour,

j'ai trouvé ce script sur le net et j'aimerai modifier le case suivant de façon à ce que le script ne renvoit pas d'erreur s'il ne trouve pas de fichier a Downloader, mais passe son chemin.

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
46
                Case Consts.ActionDownloadAll
 
                    ' Setup FTPS request.
                    request = CType(WebRequest.Create(GetRemote_()), FtpWebRequest)
                    Call SetupRequest_(request)
                    request.Method = WebRequestMethods.Ftp.ListDirectory
                    response = CType(request.GetResponse(), FtpWebResponse)
                    dataStream = response.GetResponseStream()
                    sr = New StreamReader(dataStream)
                    listFil = sr.ReadToEnd
                    sr.Close()
                    dataStream.Close()
 
                    listFil = listFil.Replace(vbCrLf, vbCr).TrimEnd(Chr(13))
 
                    listefichiers = listFil.Split(Chr(13))
 
                    For Each line As String In listefichiers
 
                        'If line.Substring(0, 6).ToUpper = "Plus_" Then
                        ' Setup FTPS request.
                        request = CType(WebRequest.Create(GetRemote_() & "//" & line), FtpWebRequest)
                        Call SetupRequest_(request)
                        request.Method = WebRequestMethods.Ftp.DownloadFile
 
                        ' Get input.
                        response = CType(request.GetResponse(), FtpWebResponse)
                        input = response.GetResponseStream()
 
                        ' Get output.
                        output = New FileStream(Me.Local & line, FileMode.Create, FileAccess.Write)
 
                        ' Download file.
                        Try
                            Call TransferFile_(input, output)
                        Finally
                            input.Close()
                            output.Close()
                        End Try
                        'delete File
                        request = CType(WebRequest.Create(GetRemote_() & "//" & line), FtpWebRequest)
                        Call SetupRequest_(request)
                        request.Method = WebRequestMethods.Ftp.DeleteFile
                        response = CType(request.GetResponse(), FtpWebResponse)
                        'End If
                    Next