Dim ftp1 As New FtpClient
ftp1.Host = "j***.oicp.net"
ftp1.Account = "Admin"
ftp1.Password = "****"
ftp1.Port = "47**8"
If ftp1.DirExists("/oldcloud/公共文档/货运底单/2018货运底单/2024-3/2024-03-05") Then
MessageBox.show("目录已经存在", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information) ‘ 目录能够检查到
End If
ftp1.MakeDir("/oldcloud/公共文档/货运底单/2018货运底单/2024-3/2024-03-07") '可以建立目录
ftp1.Upload("?D:\web\uploadfiles\65967.jpg", "\oldcloud\公共文档\货运底单\2018货运底单\2024-3\2024-03-05\65967.jpg") ’就是不能上传
ftp1.Upload("?D:\web\uploadfiles\65967.jpg", "/oldcloud/公共文档/货运底单/2018货运底单/2024-3/2024-03-05/65967.jpg") ’改斜杠也不能上传
1、去掉路径里的问号
ftp1.Upload("?D:\web\uploadfiles\65967.jpg", "\oldcloud\公共文档\货运底单\2018货运底单\2024-3\2024-03-05\65967.jpg") ’
2、创建目录的路径不对,上面是2024-03-05,下面是2024-03-07
ftp1.MakeDir("/oldcloud/公共文档/货运底单/2018货运底单/2024-3/2024-03-07")
本地文件也存在,ftp能连接也能判断目录存在就是上传不了!
此主题相关图片如下:屏幕截图 2024-03-08 152526.png
此主题相关图片如下:屏幕截图 2024-03-08 152605.png
可以手动上传
此主题相关图片如下:屏幕截图 2024-03-08 162926.png