VB怎么获得FTP服务器的文件以及文件夹列表

public strData as string

'这段可以返回服务器中的第一级目录名，保存在strData中， 如有多个文件夹名每个文件夹名会以空格分开。读取时判段一下。

Inet1.Execute Inet1.URL, "dir """ & dirName & """"

Do

DoEvents

Loop While Inet1.StillExecuting = True

msgbox strData

'这段是进入目录中，要想获得服务器中所有的文件夹名，就可以用递规的办法来获得。

Inet1.Execute Inet1.URL, "cd """ & dirName & """"

Do

DoEvents

Loop While Inet1.StillExecuting = True

Private Sub Inet1_StateChanged(ByVal State As Integer)

Select Case State

Case 1

StatusBar1.Panels.Item(1).Text = "该控件正在查询所指定的主机的 IP 地址"

Case 2

StatusBar1.Panels.Item(1).Text = "该控件已成功地找到所指定的主机的 IP 地址"

Case 3

StatusBar1.Panels.Item(1).Text = "该控件正在与主机连接"

Case 4

StatusBar1.Panels.Item(1).Text = "该控件已与主机连接成功"

Case 5

StatusBar1.Panels.Item(1).Text = "该控件正在向主机发送请求"

Case 6

StatusBar1.Panels.Item(1).Text = "该控件发送请求已成功"

Case 7

StatusBar1.Panels.Item(1).Text = "该控件正在接收主机的响应"

Case 8

StatusBar1.Panels.Item(1).Text = "该控件已成功地接收到主机的响应"

Case 9

StatusBar1.Panels.Item(1).Text = "该控件正在解除与主机的连接"

Case 10

StatusBar1.Panels.Item(1).Text = "该控件已成功地与主机解除了连接"

Case 11

MsgBox "与主机通讯时出现了错误", vbInformation, "个人资料"

Case 12

Dim vtData As Variant

Dim bDone As Boolean

bDone = False

'取得第一个块。

vtData = Inet1.GetChunk(1024, icString)

DoEvents

Do While Not bDone

strData = strData & vtData

'取得下一个块。

vtData = Inet1.GetChunk(1024, icString)

DoEvents

If Len(vtData) = 0 Then

bDone = True

End If

Loop

StatusBar1.Panels.Item(1).Text = "该请求已经完成，并且所有数据均已接收到"

Case Else

StatusBar1.Panels.Item(1).Text = Inet1.ResponseCode & ":" & Inet1.ResponseInfo

End Select

End Sub

采用ezftp控件

FTP.RemoteAddress = 地址

FTP.UserName = 用户名

FTP.Password = 密码

FTP.Connect

FTP.LocalFile = 文件本地地址

FTP.RemoteFile = ftp上的地址

On Error Resume Next

FTP.PutFile

If Err <>0 Then

MsgBox "未能连接到远程服务器，请检测网络", vbExclamation, "注意"

Exit Sub

End If

MsgBox "上传成功", , "成功！"

FTP.Disconnect

首先,要保证你的机器能上网,而且有不低于ADSL 512Kbps的网络速度。其次,硬件性能要能满足你的需要。最后,需要安装FTP服务器端的软件,这类软件很多,可以使用微软的IIS(Internet Information Server 因特网信息服务系统),也可以使用专业软件。不同的软件提供的功能不同,适应的需求和操作系统也不同。一般来说,系统最低要求如下:

CPU:PⅢ 450MHz以上

内存:256MB SDRAM以上

带宽:ADSL 512Kbps以上

至于操作系统,Windows 98/Me/NT/2000/XP均可,如果对服务器的性能和安全性要求很低,可以采用Windows 98和Windows Me。本文中,如无特殊说明,均以Windows XP专业版为操作系统,其余操作系统下FTP服务器的架设及设置均大同小异。

一、用IIS架设(windows 2000 和windows XP 自带)

如果只是想建个小型的同时在线用户数不超过10个的FTP服务器,且不会同时进行大流量的数据传输,可以用IIS 5.0作为服务器软件来架设(IIS只适用于Windows NT/2000/XP操作系统)。

1.安装

Windows XP默认安装时不安装IIS组件,需要手工添加安装。进入控制面板,找到“添加/删除程序”,打开后选择“添加/删除Windows组件”,在弹出的“Windows组件向导”窗口中,将“Internet信息服务(IIS)”项选中。在该选项前的“√”背景色是灰色的,这是因为Windows XP默认并不安装FTP服务组件。再点击右下角的“详细信息”,在弹出的“Internet信息服务(IIS)”窗口中,找到“文件传输协议(FTP)服务”,选中后确定即可。

安装完后需要重启。Windows NT/2000和Windows XP的安装方法相同。

2.设置

电脑重启后,FTP服务器就开始运行了,但还要进行一些设置。点击“开始→所有程序→管理工具→Internet信息服务”,进入“Internet信息服务”窗口后,找到“默认FTP站点”,右击鼠标,在弹出的右键菜单中选择“属性”。在“属性”中,我们可以设置FTP服务器的名称、IP、端口、访问账户、FTP目录位置、用户进入FTP时接收到的消息等。

1)FTP站点基本信息

进入“FTP站点”选项卡,其中的“描述”选项为该FTP站点的名称,用来称呼你的服务器,可以随意填,比如“我的小站”“IP地址”为服务器的IP,系统默认为“全部未分配”,一般不须改动,但如果在下拉列表框中有两个或两个以上的IP地址时,最好指定为公网IP“TCP端口”一般仍设为默认的21端口“连接”选项用来设置允许同时连接服务器的用户最大连接数“连接超时”用来设置一个等待时间,如果连接到服务器的用户在线的时间超过等待时间而没有任何操作,服务器就会自动断开与该用户的连接。

2)设置账户及其权限

很多FTP站点都要求用户输入用户名和密码才能登录,这个用户名和密码就叫账户。不同用户可使用相同的账户访问站点,同一个站点可设置多个账户,每个账户可拥有不同的权限,如有的可以上传和下载,而有的则只允许下载。

3)安全设定

进入“安全账户”选项卡,有“允许匿名连接”和“仅允许匿名连接”两项,默认为“允许匿名连接”,此时FTP服务器提供匿名登录。“仅允许匿名连接”是用来防止用户使用有管理权限的账户进行访问,选中后,即使是Administrator(管理员)账号也不能登录,FTP只能通过服务器进行“本地访问”来管理。至于“FTP站点操作员”选项,是用来添加或删除本FTP服务器具有一定权限的账户。IIS与其他专业的FTP服务器软件不同,它基于Windows用户账号进行账户管理,本身并不能随意设定FTP服务器允许访问的账户,要添加或删除允许访问的账户,必须先在操作系统自带的“管理工具”中的“计算机管理”中去设置Windows用户账号,然后再通过“安全账户”选项卡中的“FTP站点操作员”选项添加或删除。但对于Windows 2000和Windows XP专业版,系统并不提供“FTP站点操作员”账户添加与删除功能,只提供Administrator一个管理账号。

---