Code Examples

1. Using IIS

IIS5 (Windows 2000), 5.1 (Windows XP), or IIS6 (Windows Server 2003 family) Web servers can use JustFTP in ASP, ASP.NET pages (or other COM / ActiveX aware server applications) to call the FTP methods provided.

To use JustFTP in with IIS, a COM+ application must be created to "hold" or "wrap" the JustFTP dll component.

1. Create a COM+ empty application using the Component Services GUI. (Start / Programs / Administrative Tools / Component Services).

2. Add justftp.dll to the application.

3. Assign a user credential that can access the network and local file system as the COM+ "Identity".

4. If using Windows 2003 uncheck the security option to "Enforce access checks".

See the example walkthrough with screen shots to see exactly how to do this.

The main reason for creating a COM+ "application" for JustFTP is so that an "identity" for the FTP method calls can be specified. The ASP or ASP.NET page / application does not need any special authentication changes.

ASP code calling the JustFTP "COM+" component is the same as if the DLL were simply registered. No changes to the code are required when calling JustFTP as a COM+ application. COM+ "wraps" the DLL as a "configured component" and is always the preferred installation scenario for JustFTP for all uses.
 

When creating the JustFTP object in code, always use the version independent ProgID "JustFTP.FTP" for CreateObject (VBScript) or Server.CreateObject (ASP Script).

ASP Code Example

IIS5 (Windows 2000), IIS5.1 (Windows XP), or IIS6 (Windows Server 2003 family) Web servers can use JustFTP in ASP and ASP.NET pages.


Using JustFTP to transfer a file to a remote server.

The code example below shows an ASP page calling JustFTP to send the file backup.log to a central server.

Note that the Program Identifier (progid) is "JustFTP.FTP".

<html>
<head>
</head>
<body>

<%
  Dim objFtp, Result

  Set objFtp = Server.CreateObject("JustFTP.FTP")

    Result = objFtp.Send("d:\backups\backup.log", "admin7.mycorp.com", "/backups", "server32-backup.log", "robot05", "secret")

  Response.Write Result

Set objFtp = Nothing

%>

</body>
</html>

2. Using VBScript

Using JustFTP is a simple process. For example, the following VBScript code will retrieve the file "rfc35.txt" from the "/rfc" directory of the public IETF FTP server. The file is then placed in the root of the local c:\ drive with the file name test.txt
 

'Sample VBScript code to retrieve a file from a remote server.

'Simply save this as a file called test.vbs and double click it to run. (Assumes you have an Internet connection).

Dim objFtp, Result

MsgBox("Start")

Set objFtp = CreateObject("JustFTP.FTP")

  Result = objFtp.Get("c:\test.txt", "ftp.ietf.org", "/rfc", "rfc35.txt", "anonymous", "[email protected]")

MsgBox(Result)

Set objFtp = Nothing

MsgBox("Done")


A primary feature of JustFTP is the predictable return result. All methods return a simple text string. This is either "OK" or "Fail", depending on the success (or not) of the operation requested.

This allows predictable testing for success in script code. Code such as:

     If Result = "Fail" Then
       MsgBox("File transfer failed")
     End If


All the methods are self explanatory and the sample code above shows how to use the component. Values are always passed into the methods.
The "Dir" method however is slightly different in that the directory listing is returned in the DirList parameter.

Simply pass a variable in VBScript that will receive this information. This is shown below, the variable Dirinfo has been used.

'Sample VBScript code to retrieve a directory listing from a remote server.

Option Explicit
Dim objFtp
Dim Dirinfo, Result

Wscript.echo("Start")

Set objFtp = CreateObject("JustFTP.FTP")

  Result = objFtp.Dir("ftp.ietf.org", "/rfc", Dirinfo, "anonymous", "[email protected]")

  Wscript.echo(Result)

  Wscript.echo(Dirinfo)

Set objFtp = Nothing

Wscript.echo("Done")

Note: As directory listings can be quite long, run this script in a command prompt using cscript (the Windows console scripting engine).

Thus:  C:\>cscript ftpdirtest.vbs
 

 

The sample below can be run using wscript (Windows GUI script engine) or cscript (console Script engine), as the directory listing of RFC's will  fit on your screen in the message box.

'Sample VBScript code to retrieve a directory listing from a remote server.

Option Explicit
Dim objFtp
Dim Dirinfo, Result

MsgBox("Start")

Set objFtp = CreateObject("JustFTP.FTP")

  Result = objFtp.Dir("ftp.ietf.org", "/", Dirinfo, "anonymous", "[email protected]")

  MsgBox(Result)

  MsgBox(Dirinfo)

Set objFtp = Nothing

MsgBox("Done")

Download the trial version 404 KB



 

Google
 
Web easterndigitalsoftware.com

Copyright 2006 Eastern Digital Pty. Ltd. Australia.  ABN 87 004 274 051
Home | Contact us | Products | Downloads | Support | Privacy Policy