>ftpClient = CreateObject("SocketTools.FtpObject.6") > >* >* Initialize the component using the specified runtime >* license key; if the key is not specified, the >* development license will be used >* >nError = ftpClient.Initialize(CSTOOLS6_LICENSE_KEY) >If nError <> 0 Then > MessageBox("Unable to initialize SocketTools component") > RETURN >EndIf > >IF ftpClient.Connect("255.255.255.255",21,"userid","password")<>0 > MessageBox("Unable connect to FTP server") > RETURN >EndIf > >ftpClient.GetFile(lcLocalName,lcRemoteFile) && Get file from ftp server >ftpClient.PutFIle(lcLocalName,lcRemoteFile) && Put file to ftp server > >ftpClient.Disconnect() > >ftpClient.uninitialize() >>