ftp远程执行程序的新想法！求助老师 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → ftp远程执行程序的新想法！求助老师

共有5033人关注过本帖树形打印复制链接主题：ftp远程执行程序的新想法！求助老师

卡邦

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

加好友

发短信

等级：婴狐帖子：27 积分：232 威望：0 精华：0 注册：2013/6/14 22:24:00

Post By：2013/7/8 15:59:00 [只看该作者]

兄弟：

我这边急的要死，领导逼死我了，你就别添乱了，等我以后有时间一定从头好好看帮助！

现在脑子里一团浆糊，你们就行行好吧，谁会的直接告诉我得了！

上面那段代码往哪里写？怎么单独形成一个可直接运行的可执行文件！

我是菜鸟

感激不尽！

卡邦

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

加好友

发短信

等级：婴狐帖子：27 积分：232 威望：0 精华：0 注册：2013/6/14 22:24:00

Post By：2013/7/8 16:08:00 [只看该作者]

兄弟：

我这边都急死了，快被领导逼疯了，你就别添乱了，以后有时间我一定好好从头看帮助！

现在脑子一团浆糊，什么都干不了，你们行行好吧！谁会的直接告诉我得了！

上面的代码往哪里写？然后怎么形成一个可执行的独立文件可以放桌面当快捷方式用！！

你们都是高手，别折磨我了！

我是菜鸟！

感激不尽！！！

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47448 积分：251060 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2013/7/8 16:26:00 [只看该作者]

如果一定要这么做，就做个空白项目，项目的AfterOpenproject事件中写上代码：

Dim ftp1 As new ftpclient
ftp1.host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.password = "138238110"
If ftp1.Download("\data\管理项目1.table","c:\data\管理项目1.table") = True Then
syscmd.Project.Open("c:\data\管理项目1.table")
Else
Messagebox.show("下载失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

桌面的快捷方式指向这个空白项目，这样打开这个空白项目，就会自动从ftp下载项目并打开之。