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