esFTP ftp控件的源代码，有参考价值

内有vb的调用例程。

// Copyright （C） 1991-1999 Ake Hedman akhe@brattberg.com 
//
// This software is free software; you can redistribute it and/or
// modify it under the terms of the GNU Lesser General Public
// License as published by the Free Software Foundation; either
// version 2 of the License or （at your option） any later version.
//
// This library is distributed in the hope that it will be useful
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
// Library General Public License for more details.
//
// You should have received a copy of the GNU Library General Public
// License along with this library; if not write to the
// Free Software Foundation Inc. 59 Temple Place - Suite 330
// Boston MA 02111-1307 USA.
//
// EsFtp.cpp : Implementation of CEsFtpApp and DLL registration.
//
// 98-03-23 AH Fixed problem with NT server MS-DOS mode
//			Build 26			
/*
$Header: /EsFtp/EsFtp.cpp 17    98-06-07 17:44 Akhe $
$Author: Akhe $
$Archive: /EsFtp/EsFtp.cpp $
$Date: 98-06-07 17:44 $
$Modtime: 98-03-23 21:25 $
$Revision: 17 $
$Nokeywords:	$
*/

#include “stdafx.h“
#include “EsFtp.h“

#ifdef _DEBUG
#define new DEBUG_NEW
#undef THIS_FILE
static char THIS_FILE[] = __FILE__;
#endif


CEsFtpApp NEAR theApp;

const GUID CDECL baseD_CODE _tlid =
		{ 0xcac2b080 0x1307 0x11d0 { 0x91 0xca 0x44 0x45 0x53 0x54 0 0 } };

//***** Remember to change ver file  ******
// also extern declarations in program.h file
const WORD _wVerMajor = 1;
const WORD _wVerMinor = 1;

const WORD _wBeta =	0;	// Set to null if release
const WORD _wBuild =27;	// This is $Revision:

#ifdef WIN32
	const CString szApplicationName=“EsFtp32“;
#else
	const CString szApplicationName=“EsFtp16“;
#endif

////////////////////////////////////////////////////////////////////////////
// CEsFtpApp::InitInstance - DLL initialization

BOOL CEsFtpApp::InitInstance（）
{
	BOOL bInit = COleControlModule::InitInstance（）;

	if （bInit）
	{
		if （!AfxSocketInit（））
		{	
			AfxMessageBox（IDP_SOCKETS_INIT_FAILED）;
			return FALSE;
		}
	}

	return bInit;
}


////////////////////////////////////////////////////////////////////////////
// CEsFtpApp::ExitInstance - DLL termination

int CEsFtpApp::ExitInstance（）
{
	// TODO: Add your own module termination code here.

	return COleControlModule::ExitInstance（）;
}


/////////////////////////////////////////////////////////////////////////////
// DllRegisterServer - Adds entries to the system registry

STDAPI DllRegisterServer（void）
{
	AFX_MANAGE_STATE（_afxModuleAddrThis）;

	if （!AfxOleRegisterTypeLib（AfxGetInstanceHandle（） _tlid））
		return ResultFromScode（SELFREG_E_TYPELIB）;

	if （!COleobjectFactoryEx::UpdateRegistryAll（TRUE））
		return ResultFromScode（SELFREG_E_CLASS）;

	return NOERROR;
}


/////////////////////////////////////////////////////////////////////////////
// DllUnregist

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     文件       26428  1999-05-16 18:47  lesser.txt
     文件       29302  1999-05-16 18:44  lesser.html
     文件        2166  1997-06-14 16:56  Windev\EsFtp\DEMO.BMP
     文件       34588  1998-08-12 15:10  Windev\EsFtp\EsFtp.aps
     文件       27546  1997-06-14 16:56  Windev\EsFtp\EsFtp.bak
     文件        2363  1998-08-13 22:27  Windev\EsFtp\EsFtp.clw
     文件         220  1997-06-14 16:56  Windev\EsFtp\EsFtp.def
     文件        1078  1997-06-14 16:56  Windev\EsFtp\EsFtp.ico
     文件         446  1997-06-14 16:56  Windev\EsFtp\EsFtp.lic
     文件       18515  1997-10-12 17:37  Windev\EsFtp\EsFtp.mak
     文件       43008  1997-06-14 16:56  Windev\EsFtp\EsFtp.mdp
     文件        3691  1998-10-09 13:14  Windev\EsFtp\EsFtp.plg
     文件        4287  1998-08-12 15:10  Windev\EsFtp\EsFtp.rc
     文件         414  1998-05-14 15:36  Windev\EsFtp\EsFtp32.dep
     文件         446  1997-06-14 16:56  Windev\EsFtp\EsFtp32.lic
     文件         238  1997-11-13 11:09  Windev\EsFtp\EsFtpCtl.bmp
     文件          97  1997-10-11 14:24  Windev\EsFtp\MSSCCPRJ.SCC
     文件         325  1998-03-15 20:51  Windev\EsFtp\ReadMe.txt
     文件         760  1998-01-06 19:34  Windev\EsFtp\Resource.h
     文件        5689  1997-12-31 14:44  Windev\EsFtp\SPLASH.CPP
     文件        2676  1997-12-31 14:44  Windev\EsFtp\SPLASH.H
     目录           0  1998-11-08 20:52  Windev\EsFtp\WSFTP\
     目录           0  1998-11-08 20:52  Windev\EsFtp\WSFTP\Debug\
     目录           0  1998-11-08 20:52  Windev\EsFtp\VB\
     文件        9588  1998-08-05 13:56  Windev\EsFtp\VB\Contrib.howto
     文件       15591  1998-08-13 23:03  Windev\EsFtp\VB\MainForm.frm
     文件         750  1998-08-19 20:53  Windev\EsFtp\VB\MainForm.log
     文件         152  1998-08-19 20:53  Windev\EsFtp\VB\MSSCCPRJ.SCC
     文件        5756  1998-01-14 20:09  Windev\EsFtp\VB\Project1.DEP
     文件       31744  1998-08-12 14:57  Windev\EsFtp\VB\Project1.exe
     文件         963  1998-08-13 23:22  Windev\EsFtp\VB\PROJECT1.VBP
............此处省略43个文件信息