Discussion :

[Eric_03]

Bonjour,

J'ai inscrit le composant winSCP



J'ai un module qui me permet de downloader ou uploader des fichiers sur un serveur ftp à partir de ce composant:

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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
 
Option Explicit
 
Sub Example()
 
    Dim maSession As New Session
 
    ' Enable custom error handling
    On Error Resume Next
 
'    Upload maSession
'    Download maSession
    Synchronise maSession
 
 
    ' Query for errors
    If Err.Number <> 0 Then
        MsgBox "Error: " & Err.Description
 
        ' Clear the error
        Err.Clear
    End If
 
    ' Disconnect, clean up
    maSession.Dispose
 
    ' Restore default error handling
    On Error GoTo 0
 
End Sub
 
Private Sub Upload(ByRef maSession As Session)
 
    Dim mesOptionsdeSession As New sessionOptions
 
    With mesOptionsdeSession
        .Protocol = Protocol_Ftp
        .HostName = "192.168.1.13"
        .UserName = "User"
        .Password = "XXXX"
        .FtpSecure = FtpSecure.FtpSecure_Explicit
        .TlsHostCertificateFingerprint = "61:ba:da:16:4d:..."
    End With
 
    maSession.Open mesOptionsdeSession
 
    Dim mesOptionsdeTransfert As New transferOptions
 
    mesOptionsdeTransfert.TransferMode = TransferMode_Binary
 
    Dim ResultatduTransfert As TransferOperationResult
    Set ResultatduTransfert = _
        maSession.PutFiles("C:\AE\TAR\*", "/", False, mesOptionsdeTransfert)
 
    ' Throw on any error
    ResultatduTransfert.Check
 
    ' Display results
    Dim transfert As TransferEventArgs
    For Each transfert In ResultatduTransfert.Transfers
        MsgBox "Upload de " & transfert.Filename & " succés"
    Next
 
End Sub
 
Private Sub Download(ByRef maSession As Session)
 
    Dim mesOptionsdeSession As New sessionOptions
 
    With mesOptionsdeSession
        .Protocol = Protocol_Ftp
        .HostName = "192.168.1.13"
        .UserName = "User"
        .Password = "XXXX"
        .FtpSecure = FtpSecure.FtpSecure_Explicit
        .TlsHostCertificateFingerprint = "61:ba:da:16:4d:....."
    End With
 
    maSession.Open mesOptionsdeSession
 
    Dim mesOptionsdeTransfert As New transferOptions
 
    mesOptionsdeTransfert.TransferMode = TransferMode_Binary
 
    Dim ResultatduTransfert As TransferOperationResult
    Set ResultatduTransfert = _
        maSession.GetFiles("/*", "C:\AE\TAR\", False, mesOptionsdeTransfert)
 
    ' Throw on any error
    ResultatduTransfert.Check
 
    ' Display results
    Dim transfert As TransferEventArgs
    For Each transfert In ResultatduTransfert.Transfers
        MsgBox "Download de " & transfert.Filename & " succés"
    Next
 
End Sub

Je souhaiterai pouvoir synchroniser le serveur avec un dossier en local plutôt que downloader les fichiers.

Merci pour votre aide

Eric

[Eric_03]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
    Dim synchronizationResult As synchronizationResult
    Set synchronizationResult = _
                    maSession.SynchronizeDirectories( _
                        SynchronizationMode_Local, "C:\AE\TAR\", "\", False)

Eric