FTP上传不了文件，求助。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → FTP上传不了文件，求助。

共有7596人关注过本帖树形打印复制链接主题：FTP上传不了文件，求助。

lihe60

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6847 积分：43329 威望：0 精华：0 注册：2009/3/2 14:07:00

FTP上传不了文件，求助。 发帖心情

Post By：2012/4/21 15:02:00 [显示全部帖子]

Dim ftp1 As new ftpclient
ftp1.host="61.147.116.236"
ftp1.Account = "lih"
ftp1.password = "li"
If ftp1.DirectoryExists("/data") = False Then '如果不存在Data目录
ftp1.MakeDir("/data") '则创建Data目录
End If
ftp1.upload("d:\erp.mdb","/data/erp.mdb",True)

我申请了一个免费的FTP，还是上传不了文件。求助。

[此贴子已经被作者于2012-5-2 15:55:42编辑过]

lihe60

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6847 积分：43329 威望：0 精华：0 注册：2009/3/2 14:07:00

Post By：2012/4/21 15:23:00 [显示全部帖子]

此主题相关图片如下：不通.gif

lihe60

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6847 积分：43329 威望：0 精华：0 注册：2009/3/2 14:07:00

Post By：2012/4/21 15:49:00 [显示全部帖子]

If ftp1.DirectoryExists("/data") = False Then '如果不存在Data目录
ftp1.MakeDir("/data") '则创建Data目录
End If
这行代码删除，是可以执行的，不理解。

lihe60

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6847 积分：43329 威望：0 精华：0 注册：2009/3/2 14:07:00

Post By：2012/4/21 16:29:00 [显示全部帖子]

Dim ftp1 As new ftpclient
ftp1.host="61.147.116.236"
ftp1.Account = "lihe"
ftp1.password = "lihe123456"
If ftp1.DirectoryExists("/data") = False Then '如果不存在Data目录
ftp1.MakeDir("/data") '则创建Data目录
End If
ftp1.upload("d:\erp.mdb","/wwwroot/erp.mdb",False)

这行代码是不执行的。

Dim ftp1 As new ftpclient
ftp1.host="61.147.116.236"
ftp1.Account = "lihe"
ftp1.password = "lihe123456"
ftp1.upload("d:\erp.mdb","/wwwroot/erp.mdb",False)

这行代码是执行的。

红色部分要修改。

lihe60

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6847 积分：43329 威望：0 精华：0 注册：2009/3/2 14:07:00

Post By：2012/4/21 16:47:00 [显示全部帖子]

代码分两次独立执行的。

下一主题 >> << 上一主题

主题：FTP上传不了文件，求助。