TN AppSvr299 A Simple FTP Upload Script for Wonderware Application Server

Description

This article from InSource shows how to script a FTP Upload using Wonderware Application Server

• Author: Bruce Telford
• Published: 05/31/2018
• Applies to: Wonderware Application Server

Details

Objective

To upload a file from a local location to an FTP site. For example, some customers don’t allow direct access to their ERP systems, but would rather manage the integration themselves for a variety of reasons (support and political purposes, etc.). This script, in Application Server, will transfer a file to a remote FTP site.

Prerequisites

To function, the following minimum information available, and if possible tested /validated with a FTP Client Software package something like Filezilla. Replace the following content with valid information “<all content between and including braces>”

FTP Server/IP: "ftp.<domain>";

User ID: "<userid>";

Password: "<password>";

Target Location: "/inbound/";

Attributes

CmdSendFTP (Boolean)

FeedbackMsg (string)

FilePath (string)

FileName (string)

… all variable below can be done this way if needed

Script Code (Async):

Me. CmdSendFTP = false;             '' Resets Send FTP trigger

Me.FeedbackMsg = "";                  '' Initialize message string

'Variables for all FTP information

Dim sFTPServer as string;

Dim sFTPUserID as string;

Dim sFTPPassword as string;

Dim sFTPLocation as string;

sFTPServer = "ftp.<domain>";    '' or IP Address

sFTPUserID = "<userid>";

sFTPPassword = "<password>";

sFTPLocation = "/inbound/";       '' include "/" unless added in URI string below

'Variables for File information

Dim sFullFileName as string;

Dim sFilePath as string;

Dim sFileName as string;

sFilePath = Me.FilePath;

sFileName = Me.FileName;

sFullFileName = sFilePath + sFileName;

'If file exists proceed

If System.IO.File.Exists(sFullFileName) Then

                'Build URI for FTP Server and Upload File

                Dim uFtpTarget = new System.Uri("ftp://" + sFTPServer + sFTPLocation + sFileName);

                'LogMessage("DEBUG: *** " + uFtpTarget + " ***");

                try

                                'Create Request to Upload File

                                Dim objFtpRequest as System.Net.FtpWebRequest;

                                objFtpRequest = System.Net.WebRequest.Create(uFtpTarget);

                                objFtpRequest.Method = System.Net.WebRequestMethods.Ftp.UploadFile;

                                'Specify Username & Password

                                objFtpRequest.Credentials = new System.Net.NetworkCredential (sFTPUserID, sFTPPassword);

                                'Locate File and Store it in a Byte Array

                                Dim btFile[10240] As System.Byte;

                                btFile = System.IO.File.ReadAllBytes(sFullFileName);

                                'Get the File

                                Dim objStrFile As System.IO.Stream;

                                objStrFile = objFtpRequest.GetRequestStream();

                                'Upload Each Byte

                                objStrFile.Write(btFile, 0, btFile.Length);

                                'Close the file

                                objStrFile.Close();

                                'Free up the Memory

                                objStrFile.Dispose();

                catch

                                Me.FeedbackMsg = "FTP Try...Catch Error: " + error.Message.ToString();

                                LogError("ERROR: *** " + Me.FeedbackMsg + " ***");

                                LogError(error.InnerException.Message.ToString());

                endtry;

Else

                Me.FeedbackMsg = "INFO: File does not exist at location  -:- File: " + sFullFileName ;

                LogError("ERROR: *** " + Me.FeedbackMsg + " ***");

Endif;