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") ’改斜杠也不能上传
加好友 
发短信
Post By：2024/3/7 23:25:00 [只看该作者]
