Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
SocketTools 5.0 Sample Code
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Contrôles ActiveX en VFP
Versions des environnements
Visual FoxPro:
VFP 8 SP1
OS:
Windows XP SP2
Network:
Windows 2003 Server
Database:
Visual FoxPro
Application:
Desktop
Divers
Thread ID:
01392471
Message ID:
01392482
Vues:
51
Hi Tommy,

I have not Socket Tools, but...
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()
MartinaJ

>Hi Gang,
>
>I asked this a few days ago, but did not get any help.....
>
>Do you have any sample code for SocketTools 5.0 ?? I need at the moment, code to read a directory, see if certain files (by extension) are there, and download the filelisting of those that do.
>
>Thanks!
"Navision is evil that needs to be erazed... to the ground"

Jabber: gorila@dione.zcu.cz
Jabber? Jabbim
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform