Differences
This shows you the differences between the selected revisions of the page.
| 2012-02-29 | 2012-03-20 | ||
| future => beta (martin) | option explicit (martin) | ||
| Line 123: | Line 123: | ||
| <reference object="WinSCP.Session" /> | <reference object="WinSCP.Session" /> | ||
| <script language="VBScript"> | <script language="VBScript"> | ||
| + | |||
| + | Option Explicit | ||
| ' Setup session options | ' Setup session options | ||
| + | Dim sessionOptions | ||
| Set sessionOptions = WScript.CreateObject("WinSCP.SessionOptions") | Set sessionOptions = WScript.CreateObject("WinSCP.SessionOptions") | ||
| With sessionOptions | With sessionOptions | ||
| Line 134: | Line 137: | ||
| End With | End With | ||
| + | Dim session | ||
| Set session = WScript.CreateObject("WinSCP.Session") | Set session = WScript.CreateObject("WinSCP.Session") | ||
| Line 140: | Line 144: | ||
| ' Upload files | ' Upload files | ||
| + | Dim transferOptions | ||
| Set transferOptions = WScript.CreateObject("WinSCP.TransferOptions") | Set transferOptions = WScript.CreateObject("WinSCP.TransferOptions") | ||
| transferOptions.TransferMode = TransferMode_Binary | transferOptions.TransferMode = TransferMode_Binary | ||
| + | Dim transferResult | ||
| Set transferResult = session.PutFiles("d:\toupload\*", "/home/user/", False, transferOptions) | Set transferResult = session.PutFiles("d:\toupload\*", "/home/user/", False, transferOptions) | ||
| Line 149: | Line 155: | ||
| ' Print results | ' Print results | ||
| + | Dim transfer | ||
| For Each transfer In transferResult.Transfers | For Each transfer In transferResult.Transfers | ||
| WScript.Echo "Upload of " & transfer.FileName & " succeeded" | WScript.Echo "Upload of " & transfer.FileName & " succeeded" | ||