' Setup session options

            Dim sessionOptions As New SessionOptions

            With sessionOptions

                .Protocol = Protocol.Ftp

                .HostName = ftpserver

                .UserName = config.ftpuser

                .Password = config.ftppassword

            End With



            Using session As New Session

                ' Will continuously report progress of synchronization

                AddHandler session.FileTransferred, AddressOf FileTransferred

                session.SessionLogPath = My.Computer.FileSystem.SpecialDirectories.MyDocuments & "\FestplattenArchiv\WinSCP-Session-Log.log"

                session.DebugLogPath = My.Computer.FileSystem.SpecialDirectories.MyDocuments & "\FestplattenArchiv\WinSCP-Debug-Log.log"

                session.DebugLogLevel = 2



                ' Connect

                session.Open(sessionOptions)



                ' Synchronize files

                Dim synchronizationResult As SynchronizationResult

                synchronizationResult =

                    session.SynchronizeDirectories(

                        SynchronizationMode.Local, config.rootpath, "/FestplattenArchiv/Datenbank", True)



                If BGW_SyncDir.CancellationPending = True Then

                    session.Abort()

                    e.Cancel = True

                    Exit Sub

                End If



                ' Throw on any error

                synchronizationResult.Check()

            End Using