网站建设资讯

NEWS

网站建设资讯

vb点虐 的ftp开发 vbnet fileopen

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
链接分享:http://cdweb.net/article/ddesjch.html