FTP Upload a File

Download 32-bit Chilkat FTP2 ActiveX (.msi)

Download All 32-bit Chilkat ActiveX Components (.zip)

Download All 64-bit Chilkat ActiveX Components (.zip)

Visual Foxpro example program to upload a file to an FTP server.

***********************************************************
*** Visual FoxPro to FTP Upload a File
***********************************************************

LOCAL loFtp, lnSuccess, lcLocalFilename, lcRemoteFilename

loFtp = CreateObject('Chilkat.Ftp2')
loFtp.UnlockComponent('Anything for 30-day trial')

loFtp.HostName = "ftp.myHost.com"
loFtp.Username = "myLogin"
loFtp.Password = "myPassword"

lnSuccess = loFtp.Connect()
IF ( lnSuccess = 0 )
	=MESSAGEBOX(loFtp.LastErrorText)
	RELEASE loFtp
	RETURN .T.
ENDIF

* Change to the remote FTP directory where the file will be uploaded.
lnSuccess = loFtp.ChangeRemoteDir("someDir")
IF ( lnSuccess = 0 )
	=MESSAGEBOX(loFtp.LastErrorText)
	RELEASE loFtp
	RETURN .T.
ENDIF

* Upload the file, keeping the same filename on the FTP server.
lcLocalFilename = "myFile.txt"
lcRemoteFilename = "myFile.txt"
lnSuccess = loFtp.PutFile(lcLocalFilename, lcRemoteFilename)
IF ( lnSuccess = 0 )
	=MESSAGEBOX(loFtp.LastErrorText)
	RELEASE loFtp
	RETURN .T.
ENDIF

=loFtp.Disconnect()

RELEASE loFtp

RETURN .T.