vb的ftp服务器

⑴ VB ftp服务器 制作

首先,要保证你的机器能上网,而且有不低于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一个管理账号。

⑵ vb获取FTP服务器文件列表

下载之前加入这个函数PrivateSubWaitinet()'新加入的Ifvkey=TrueThenMsgBox("空间服务器正在执行，若还是连接不上，请与您的空间商联系")ExitSub'"如果为真，则不再执行下面代码"Elsevkey=TrueEndIfdoing=Inet1.=FalseThenExitDodoing=Inet1.=False

⑶ vb做ftp服务器

不能仅仅简单买一个高性能服务器来解决问题，建议楼主还是咨询下系统集成厂商，或者懂这方面的朋友，帮你来分析下你们公司的实际情况！以下是我的建议：
既然是OA系统，我们必须要确保其安全性，如果公司对OA的依赖程度很高的话，或者文件都是存放在服务器上的！那么建议你不要只用一台服务器！具体可以这样：
分为两台机器，一台OA服务器，一台WEB服务器；根据负载，如WEB服务器的负载不大，那么配置可以略低于OA服务器，把有限的预算加到OA服务器上去（如果预算充足，那么OA、web、卡巴服务器、邮件服务器（如果有的话）等，分别采购不同的服务器）；然后通过集群，首先OA服务器和web服务器（或者邮件服务器，邮件一般也是企业不能缺少的）做双机互备，这样的话，即使其中任何一台机器有问题，那么服务器会自动切换到另一台，这样在保证企业正常使用的前提下，完成服务器修复！
当然OA以及邮件等一些数据对企业来说是非常重要的，损失了往往后果不堪设想的，所以在数据备份方面，如果预算充足，还是建议再挂一台存储器，最好再上一个磁带机！把OA数据库、邮件数据备份在存储设备上！这样即使服务器数据被人攻击或者遭遇严重的病毒攻击，服务器数据完全丢失的情况下，在重装服务器后，可以通过存储设备中备份的数据来挽回损失！
当然关于其他一些问题，包括安装杀毒软件，还有还原软件（赛门铁克比较着名）之类的也需要注意！

⑷ 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

⑸ 如何用VB访问FTP文件服务器

你有登录的帐号和密码么！
用INTE就能做！很简单！

⑹ vb如何上传文件到指定ftp

最简单的方法是用ftp批处理，代码如下
open app.path & "\ftpcmd.ftp" for output as #1 '创建一个ftp命令文件
print #1, "open " & "IP" '打开ftp服务器
print #1, "user " & "用户名"
print #1, "pass " & "密码"

print #1, "lcd " & "本地文件路径" '指定本地文件所在目录

print #1, "put " & "文件名"
close #1 'frp命令文件写完了
shell "ftp -n -s:" & app.path & "\ftpcmd.ftp" '调用系统ftp，并执行上面写的ftpcmd.ftp

⑺ 用VB做一个自动从FTP服务器下载文件并运行的程序

Option Explicit Dim strCommand As String Dim strWebPage As String Private Sub Command1_Click() Winsock1.RemoteHost = "202.103.176.81" '返回或设置远程计算机，控件向它发送数据或从它那里接收数据。既可提供主机名，比如 "FTP://ftp.microsoft.com"，也可提供点格式下的 IP 地址字符串，比如 "100.0.1.1"。 Winsock1.RemotePort = 80 '返回或设置要连接的远程端口号 Winsock1.Connect '返回与远程计算机的连接。 End Sub Private Sub Winsock1_Connect() '当一个 Connect 操作完成时发生。 On Error Resume Next strWebPage = " http://202.103.176.81/crun/yingzi007/code_1.asp" strCommand = "GET " + strWebPage + " HTTP/1.0" + vbCrLf 'GET 为FTP命令 strCommand = strCommand + "Accept: */*" + vbCrLf '这句可以不要 strCommand = strCommand + "Accept: text/html" + vbCrLf '这句可以不要 strCommand = strCommand + vbCrLf '记住一定要加上vbCrLf Debug.Print strCommand Winsock1.SendData strCommand ''给远程计算机发送数据 End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) '当新数据到达时产生该事件 On Error Resume Next '在错误处理程序结束后，恢复原有的运行 Dim webData As String Winsock1.GetData webData, vbString '检取当前的数据块 Text1.Text = Text1.Text + webData End Sub

⑻ vb 上传文件到指定ftp服务器

采用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

⑼ vb6.0调用cmd上传文件到ftp服务器,急!

1.打印ftp控制数据到文件(ftpcmd.scr)
--
ftpcmd.scr
--
open
服务器的地址
帐号
密码
bin
文件名
disconnect
bye
2.执行下面vb代码Shell
"cmd.exe
/C
FTP.EXE
-i
-s:ftpcmd.scr"

⑽ VB ftp如何成功上传文件

最简单的方法是用ftp批处理，代码如下
open app.path & "\ftpcmd.ftp" for output as #1 '创建一个ftp命令文件
print #1, "open " & "IP" '打开ftp服务器
print #1, "user " & "用户名"
print #1, "pass " & "密码"

print #1, "lcd " & "本地文件路径" '指定本地文件所在目录

print #1, "put " & "文件名"
close #1 'frp命令文件写完了
shell "ftp -n -s:" & app.path & "\ftpcmd.ftp" '调用系统ftp，并执行上面写的ftpcmd.ftp