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