path = tool_no_box.Text
Inet1.Protocol = icFTP
Inet1.RemoteHost = "172.24.182.131"
Inet1.RemotePort = 21
Inet1.username = ""
Inet1.Password = ""
Dim ri As Long
Inet1.Execute "", "PUT " & Text1.Text & " / " & path & " "
ri = Inet1.StillExecuting
Do While ri
ri = Inet1.StillExecuting
DoEvents
Loop
Inet1.Execute "CLOSE"
这段代码很奇怪,不知道错在哪里,只要TEXT1.TEXT的路径长点就无法上传文件,没有抱错。急!!!!!
在线等
Inet1.Protocol = icFTP
Inet1.RemoteHost = "172.24.182.131"
Inet1.RemotePort = 21
Inet1.username = ""
Inet1.Password = ""
Dim ri As Long
Inet1.Execute "", "PUT " & Text1.Text & " / " & path & " "
ri = Inet1.StillExecuting
Do While ri
ri = Inet1.StillExecuting
DoEvents
Loop
Inet1.Execute "CLOSE"
这段代码很奇怪,不知道错在哪里,只要TEXT1.TEXT的路径长点就无法上传文件,没有抱错。急!!!!!
在线等
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货