ftp上傳文件用vb點虐 怎么實現

My.Computer.Network.UploadFile(本地文件路徑,?ftp服務器路徑包括文件名,用戶名,密碼)

目前成都創新互聯公司已為上千的企業提供了網站建設、域名、網站空間、綿陽服務器托管、企業網站設計、梅縣網站維護等服務，公司將堅持客戶導向、應用為本的策略，正道將秉承"和諧、參與、激情"的文化，與客戶和合作伙伴齊心協力一起成長，共同發展。

vb點虐 2008如何操作FTP服務器?比如登錄并保持登錄狀態，然后遍歷根目錄及指定的目錄，以獲

具體方法如下：”、打開Serv－U的配置管理界面puzb在“全局用戶”或者“域用戶”中選擇“創建cgko修改和刪除用戶帳戶”；　2、在“創建，修改和刪除用戶帳戶”的界面，選擇“添加”。；3、在“用戶屬性“對話框，“用戶信息”下的用戶名為：Anonymous，密碼為空，為其指定FTP的根目錄。　4、然后在“目錄訪問“選項，點擊“添加”，為其指定訪問權限和目錄。　5、最后點擊“保存”6這樣我們就成功添加了匿名用戶。

vb中怎么應用ftp

對于FTP，你可以使用Execute方法執行FTP命令SIZE獲得文件大小。然后在StateChanged事件中可以獲得返回的文件大小。

Private Sub Command1_Click()

Inet1.Execute "", "SIZE 1.gif"

End Sub

Private Sub Inet1_StateChanged(ByVal State As Integer)

'State = 12 時，用 GetChunk 方法檢索服務器的響應。

Dim vtData As Variant ' Data variable.

Select Case State

'...沒有列舉其它情況。

Case icError '11

'出現錯誤時，返回 ResponseCode 和 ResponseInfo。

vtData = Inet1.ResponseCode ":" _

Inet1.ResponseInfo

Case icResponseCompleted ' 12

Dim strData As String

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

MsgBox strData

End Select

End Sub

對于HTTP下載，你可以用GetHeader(Content-length)來獲得文件大小。但不是所有HTTP下載時都能獲得文件長度，特別是通過代理服務器下載文件時。如：

Private Sub Form_Load()

Inet1.Execute ""

End Sub

Private Sub Inet1_StateChanged(ByVal State As Integer)

If State = icResponseReceived Then

MsgBox "File size is " Inet1.GetHeader("Content-Length")

End If

End Sub