Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
SocketTools 5.0 Sample Code
Message
General information
Forum:
Visual FoxPro
Category:
ActiveX controls in VFP
Environment versions
Visual FoxPro:
VFP 8 SP1
OS:
Windows XP SP2
Network:
Windows 2003 Server
Database:
Visual FoxPro
Application:
Desktop
Miscellaneous
Thread ID:
01392471
Message ID:
01392482
Views:
52
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
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform