Differences
This shows you the differences between the selected revisions of the page.
| 2021-09-23 | 2021-09-23 | ||
| no summary (165.225.113.32) (hidden) (untrusted) | Restored revision 1592554004. Undoing revision 1632404374. (martin) (hidden) | ||
| Line 186: | Line 186: | ||
| See [[library_com_wsh#vbscript|overall VBScript example]] or [[library_examples|any other VBScript example]]. | See [[library_com_wsh#vbscript|overall VBScript example]] or [[library_examples|any other VBScript example]]. | ||
| - | Option Explicit | + | ==== [[vba]] VBA Example ==== |
| - | + | See [[library_vb#example|overall VBA example]]. | |
| - | Sub Example() | + | |
| - | + | ||
| - | Dim mySession As New Session | + | |
| - | + | ||
| - | ' Enable custom error handling | + | |
| - | On Error Resume Next | + | |
| - | + | ||
| - | Upload mySession | + | |
| - | + | ||
| - | ' Query for errors | + | |
| - | If Err.Number <> 0 Then | + | |
| - | MsgBox "Error: " & Err.Description | + | |
| - | + | ||
| - | ' Clear the error | + | |
| - | Err.Clear | + | |
| - | End If | + | |
| - | + | ||
| - | ' Disconnect, clean up | + | |
| - | mySession.Dispose | + | |
| - | + | ||
| - | ' Restore default error handling | + | |
| - | On Error GoTo 0 | + | |
| - | + | ||
| - | End Sub | + | |
| - | Private Sub Upload(ByRef mySession As Session) | + | |
| - | + | ||
| - | ' Setup session options | + | |
| - | Dim mySessionOptions As New SessionOptions | + | |
| - | With mySessionOptions | + | |
| - | .Protocol = Protocol.sftp | + | |
| - | .HostName = "ftp2-dhllink.dhl.com" | + | |
| - | .UserName = "a2aomslowtier_sftp" | + | |
| - | .Password = "PnxAPNKp8Tp45hXW" | + | |
| - | .SshHostKeyFingerprint = "ssh-rsa 2048 rUHNM1B9cQfUrB9aulY2VrfxtKZ4YRm6xrP5o5TDPc8=" | + | |
| - | + | ||
| - | End With | + | |
| - | + | ||
| - | ' Connect | + | |
| - | mySession.Open mySessionOptions | + | |
| - | + | ||
| - | ' Upload files | + | |
| - | Dim myTransferOptions As New TransferOptions | + | |
| - | myTransferOptions.TransferMode = TransferMode_Binary | + | |
| - | + | ||
| - | Dim transferResult As TransferOperationResult | + | |
| - | Set transferResult = _ | + | |
| - | mySession.PutFiles("C:\Temp\*", "/in/", False, myTransferOptions) | + | |
| - | + | ||
| - | ' Throw on any error | + | |
| - | transferResult.Check | + | |
| - | + | ||
| - | ' Display results | + | |
| - | Dim transfer As TransferEventArgs | + | |
| - | For Each transfer In transferResult.Transfers | + | |
| - | MsgBox "Upload of " & transfer.Filename & " succeeded" | + | |
| - | Application.InputBox ("OK") | + | |
| - | + | ||
| - | Next | + | |
| - | + | ||
| - | End Sub | + | |
| ==== [[perl]] Perl Example ==== | ==== [[perl]] Perl Example ==== | ||