设置信息:
Inet1Protocol = icFTP
Inet1RemoteHost = ServerName'服务器地址
Inet1RemotePort = 21'FTP端口
Inet1UserName = uName'用户名
Inet1Password = uPWS'密码
下载文件:
Inet1Execute "", "GET 1txt d:\1txt"
ri = Inet1StillExecuting
Do While ri
ri = Inet1StillExecuting
DoEvents
Loop
上传文件:
Inet1Execute "", "PUT d:\1txt 1txt"
ri = Inet1StillExecuting
Do While ri
ri = Inet1StillExecuting
DoEvents
Loop
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)