1、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
2、VB中如何读取ftp服务器上面的text文本文件？
使用Inet控件进行FTP操作
Inet1.Protocol = icFTP
Inet1.RemoteHost = p_ServerName ' 服务器IP或者域名
Inet1.RemotePort = CInt(p_ServerPort) 'FTP端口
Inet1.UserName = uName 'FTP帐号
Inet1.Password = uPWS 'FTP密码
Inet1.Execute "", "ls"
ri = Inet1.StillExecuting
Do While ri
ri = Inet1.StillExecuting
DoEvents
Loop
vd = Inet1.GetChunk(1024, icString)
判断服务的FTP是否连接成功
下面下载服务器上的text数据，假设文件名为1.txt
p_pathDir 为当前软件运行目录，后面一个字符自带 \，如e:\1111\
tepFile 临时文件
工作方式是先下载这个文件下为，然后判断本地是否存在，如果存在，则打开文件读取内容，如果不存在，则说明服务器上不存在这个文件，但要注意，如果文件过大的话，可能需要等待的时候比较长。
tepFile = p_pathDir & "1.txt_"
'Inet1.Execute hDir, "get 1.txt " & tepFile
Inet1.Execute "", "GET 1.txt " & tepFile
ri = Inet1.StillExecuting
Do While ri
ri = Inet1.StillExecuting
DoEvents
Loop
If Dir(tepFile) = "" Then
Inet1.Cancel
MsgBox "文件不存在" & InetState, vbOKOnly + vbExclamation, "系统提示"
Else
Inet1.Cancel
'这里已经存在，与本地操作文件一样，请打开获取内容，不再详细写出
'
End If
3、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
4、vb做ftp服务器
不能仅仅简单买一个高性能服务器来解决问题，建议楼主还是咨询下系统集成厂商，或者懂这方面的朋友，帮你来分析下你们公司的实际情况！以下是我的建议：
既然是OA系统，我们必须要确保其安全性，如果公司对OA的依赖程度很高的话，或者文件都是存放在服务器上的！那么建议你不要只用一台服务器！具体可以这样：
分为两台机器，一台OA服务器，一台WEB服务器；根据负载，如WEB服务器的负载不大，那么配置可以略低于OA服务器，把有限的预算加到OA服务器上去（如果预算充足，那么OA、web、卡巴服务器、邮件服务器（如果有的话）等，分别采购不同的服务器）；然后通过集群，首先OA服务器和web服务器（或者邮件服务器，邮件一般也是企业不能缺少的）做双机互备，这样的话，即使其中任何一台机器有问题，那么服务器会自动切换到另一台，这样在保证企业正常使用的前提下，完成服务器修复！
当然OA以及邮件等一些数据对企业来说是非常重要的，损失了往往后果不堪设想的，所以在数据备份方面，如果预算充足，还是建议再挂一台存储器，最好再上一个磁带机！把OA数据库、邮件数据备份在存储设备上！这样即使服务器数据被人攻击或者遭遇严重的病毒攻击，服务器数据完全丢失的情况下，在重装服务器后，可以通过存储设备中备份的数据来挽回损失！
当然关于其他一些问题，包括安装杀毒软件，还有还原软件（赛门铁克比较著名）之类的也需要注意！
5、vb6 如何连接ftp服务器的access数据库
首先，抄FTP是文件传输协议，袭FTP服务器是用来上传或下载文件的，跟数据库连接没有一毛钱的关系，VB6可以通过INET控件把数据库下载到本地再使用，但这样就失去任何意义了。
其次，ACCESS数据库属于单机文件型数据库，不能用在网络多用户环境。在局域网中，ACCESS数据库可以放到一个共享文件夹中供其他电脑使用，但这仍然属于单机使用范畴，不是网络应用。如果实在要在广域网中用，可以把ACCESS数据库放到WEB服务器，然后用ASP搞个数据接口程序，VB6程序用xmlhttp+XML技术通过这个ASP程序间接实现对数据库的读写。不过这样做的效率与安全性是惨不忍睹的。
6、VB与FTP编程
Option Explicit
Private Const INTERNET_OPEN_TYPE_DIRECT = 1
Private Const scuseragent = "vb wininet"
Private Const INTERNET_FLAG_PASSIVE = &H8000000
'调用设置环境
Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
'连接服务器
Private Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" (ByVal hInternetSession As Long, ByVal sServerName As String, ByVal nServerPort As Integer, ByVal sUsername As String, ByVal sPassword As String, ByVal lService As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
'上传涵数
Private Declare Function FtpPutFile Lib "wininet.dll" Alias "FtpPutFileA" (ByVal hFtpSession As Long, ByVal lpszLocalFile As String, ByVal lpszRemoteFile As String, ByVal dwFlags As Long, ByVal dwContext As Long) As Boolean
Private Declare Function FtpGetFile Lib "wininet.dll" Alias "FtpGetFileA" (ByVal hFtpSession As Long, ByVal lpszRemoteFile As String, ByVal lpszNewFile As String, ByVal fFailIfExists As Boolean, ByVal dwFlagsAndAttributes As Long, ByVal dwFlags As Long, ByVal dwContext As Long) As Boolean
Private Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer
Dim hOpen As Long
Dim hConnection As Long
'上传文件模块
Public Function UpLoadFile(IP As String, FileName As String, UserName As String, PassWord As String) As Boolean
Dim ShortName As String
Dim ret As Boolean
ShortName = GetShortName(FileName)
hOpen = TestServer
If hOpen <> 0 Then
hConnection = InterConnection(IP, UserName, PassWord)
If hConnection <> 0 Then
ret = FtpPutFile(hConnection, FileName, ShortName, 2, 0)
UpLoadFile = ret
Else
UpLoadFile = False
End If
Else
UpLoadFile = False
End If
InternetCloseHandle hConnection
InternetCloseHandle hOpen
End Function
'FTP下载文件
Public Function DownLoadFile(IP As String, FileName As String, LocalFileName As String, UserName As String, PassWord As String)
Dim ret As Boolean
hOpen = TestServer
If hOpen <> 0 Then
hConnection = InterConnection(IP, UserName, PassWord)
If hConnection <> 0 Then
ret = FtpGetFile(hConnection, FileName, LocalFileName, 0, 0, 1, 0)
DownLoadFile = ret
Else
DownLoadFile = False
End If
Else
DownLoadFile = False
End If
InternetCloseHandle hConnection
InternetCloseHandle hOpen
End Function
'调用设置环境
Private Function TestServer() As Long
Dim i As Long
' i = InternetOpen(scuseragent, INTERNET_OPEN_TYPE_DIRECT, vbNullString, vbNullString, 0)
i = InternetOpen(vbNullString, INTERNET_OPEN_TYPE_DIRECT, vbNullString, vbNullString, 0)
TestServer = i
End Function
'连接服务器
Private Function InterConnection(IP As String, UserName As String, PassWord As String) As Long
Dim i As Long
i = InternetConnect(hOpen, IP, 0, UserName, PassWord, 1, INTERNET_FLAG_PASSIVE, 0)
InterConnection = i
End Function
'得到文件的短文件名
Private Function GetShortName(FileName As String) As String
Dim stemp() As String
stemp = Split(FileName, "\")
If UBound(stemp) > 0 Then
GetShortName = stemp(UBound(stemp))
Else
GetShortName = ""
End If
End Function
7、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一个管理账号。
8、如何用VB访问FTP文件服务器?
你有登录的帐号和密码么！
用INTE就能做！很简单！
9、vb 连接多个ftp服务器并同时从其下载文载
需要创建copy多个线程异步执行．
假如你下载的过程叫ftp_download
Dim mythread As New System.Threading.Thread(AddressOf ftp_download)10、用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