主题：ftp上传文件失败

Dim ftp1 As new ftpclient
ftp1.host="192.168.1.3"
ftp1.Account = "ftp001"
ftp1.password = "123"

'ftp1.timeout = 30000 有些朋友说加上这句可以，实际试过也不行
If ftp1.DirectoryExists("/data") = False Then '如果不存在Data目录
    ftp1.MakeDir("/data") '则创建Data目录
End If
ftp1.upload("c:\ab0002.doc","/ab0002.doc",true)  ‘ 试过将true改成false也不行

 

 

求助！急！

问题补充：服务器用WINDOWS XP IIS搭建，根目录D:\MYFTP下建立了两个子目录D:\MYFTP\FTP001和D\MYFTP\FT002,分别对应ftp服务的虚拟目录ftp001和ftp002。建立ftpuser组，在该组下建立两个用户ftp001和ftp002分别控制ftp001和ftp002目录（完全控制权）。在远程客户端“运行”cmd进入windows命令提示，运行ftp 192.168.1.3, 输入用户：ftp001,输入密码：123，服务器连接成功，进入ftp001目录，用put可以上传文件，ftp中的所有命令均可执行。但是在foxtable中用upload不能上传文件。

 

求助！谢谢！

报错提标：由于目标计算机积极拒绝，无法连接。 191.168.1.3:5002 

试过在列中指定ftp

DataTables("合同").DataCols("文档").ExtendType = ExtendTypeEnum.FILES
DataTables("合同").DataCols("文档").Remote = True
DataTables("合同").DataCols("文档").FTPClient.Host ="192.168.1.3"
DataTables("合同").DataCols("文档").FTPClient.Account = "ftp001"
DataTables("合同").DataCols("文档").FTPClient.password = "123"

已经“文档”列设成多文件型，可以下载显示文件，但不可以上传。

这个我也试过，任开一窗口，加一按钮，执行如下代码

UploadFile(c:\AB0002.DOC ,"192.168.1.3" ,"FTP001" ,"123")
文件上传失败。

我就郁闷，救命啊！

这个我也试过，任开一窗口，加一按钮，执行如下代码

Network.UploadFile("c:\AB0002.DOC" ,"192.168.1.3" ,"FTP001" ,"123")
文件上传失败。

我就郁闷，救命啊！

Dim ftp1 As new ftpclient
ftp1.host="192.168.1.3"
ftp1.Account = "ftp001"
ftp1.password = "123"

'ftp1.timeout = 30000 有些朋友说加上这句可以，实际试过也不行
'If ftp1.DirectoryExists("/data") = False Then '如果不存在Data目录
'    ftp1.MakeDir("/data") '则创建Data目录
'End If
ftp1.upload("c:\ab0002.doc","/ab0002.doc",true)  ‘ 试过将true改成false也不行 ,你是说“/ab0002.doc”，改成“\an0002.doc”吗？试过，一样的结果。

Network.UploadFile("c:\AB0002.doc","ftp://ftp001:123@192.168.1.3/ab0002.doc")

文件不能上传

 

此主题相关图片如下：360桌面截图20120620140755.jpg

Dim ftp1 As new ftpclient
ftp1.host="192.168.1.3"
ftp1.Account = "ftp001"
ftp1.password = "123"
FTP1.TimeOut = 30000
ftp1.upload("c:\AB0001.DOC","AB0001.DOC",False)

 

此主题相关图片如下：33.jpg

不明白！