代码如下,为什么每一次都会出现下载失败的提示,是不是必须在照片列里写入照片名称才能自动下载?
Dim ftp1 As new ftpclient
ftp1.host="XXXXXXX"
ftp1.Account = "XXXXXXXX"
ftp1.password = "XXXXXXXXXX"
ftp1.OpenManager
Dim f1,f2 As String
For Each r As Row In Tables("进货明细").Rows
f1=r("照片")
f2=FileSys.GetName(R("照片"))
If ftp1.Download(f1, projectPath & "RemoteFiles/" & f2) = True Then
Messagebox.show("下载完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
Messagebox.show("下载失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
Next