My.Computer.Network.UploadFile(本地文件路径, ftp服务器路径包括文件名,用户名,密码)
目前成都创新互联公司已为上千的企业提供了网站建设、域名、网站空间、绵阳服务器托管、企业网站设计、梅县网站维护等服务，公司将坚持客户导向、应用为本的策略，正道将秉承"和谐、参与、激情"的文化，与客户和合作伙伴齐心协力一起成长，共同发展。
具体方法如下：”、打开Serv－U的配置管理界面puzb在“全局用户”或者“域用户”中选择“创建cgko修改和删除用户帐户”； 2、在“创建，修改和删除用户帐户”的界面，选择“添加”。；3、在“用户属性“对话框，“用户信息”下的用户名为：Anonymous，密码为空，为其指定FTP的根目录。 4、然后在“目录访问“选项，点击“添加”，为其指定访问权限和目录。 5、最后点击“保存”6这样我们就成功添加了匿名用户。
对于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
