Protected Function ProcessFiles() As String
Dim Path As String
Dim LocalPath As String
Dim RemotePath As String
Path = "C:\WinSCP\WinSCP.exe"
LocalPath = "C:\" + FileUpload1.FileName
'RemotePath = "ftp://user:password@xx.x.xx.xx/In/"
Try
' Setup session options
Dim sessionOptions As New SessionOptions
MsgBox("Processing")
With sessionOptions
.Protocol = Protocol.Sftp
.HostName = "xx.xx.xx.xx"
.PortNumber = 22
.UserName = "user"
.Password = "password"
.SshHostKey = "ssh-rsa xxxx xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx"
End With
'Set up the session
'Using session As Session = New Session
Dim mySession As New Session
' Connect
mySession.ExecutablePath = Path
mySession.Open(sessionOptions)
Dim transferResult As TransferOperationResult
' Upload files
Dim transferOptions As New TransferOptions
' Print results
'Dim transfer As TransferEventArgs
'For Each transfer In transferResult.Transfers
'Console.WriteLine("Upload of {0} succeeded", transfer.FileName)
'Console.Read()
'Next
If (mySession.Opened) Then
transferOptions.TransferMode = TransferMode.Binary
'transferResult = session.PutFiles(FileUpload1.ToString, "/", True, transferOptions)
transferResult = mySession.PutFiles(LocalPath, RemotePath, False, transferOptions)
' Throw on any error
transferResult.Check()
mySession.SessionLogPath = "c:\WinSCP\log.log"
End If
'End Using
Return 0
Catch e As Exception
Console.WriteLine("Error: {0}", e)
Return 1
End Try
End Function
If (mySession.Opened) Then
transferOptions.TransferMode = TransferMode.Binary
'transferResult = session.PutFiles(FileUpload1.ToString, "/", True, transferOptions)
transferResult = mySession.PutFiles(LocalPath, RemotePath, False, transferOptions)
' Throw on any error
transferResult.Check()
End If