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

网站栏目：vb点虐 的ftp开发 vbnet fileopen
文章URL：http://njwzjz.com/article/ddesjch.html