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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → ftp 上传出错

共有10521人关注过本帖树形打印复制链接主题：ftp 上传出错

wsxdwh

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

加好友

发短信

等级：三尾狐帖子：645 积分：4583 威望：0 精华：0 注册：2012/11/12 14:27:00

ftp 上传出错 发帖心情

Post By：2013/3/20 10:37:00 [显示全部帖子]

代码：

Dim j As WinForm.ComboBox = e.Form.Controls("ComboBox9")

Dim str As String = j.text

Dim s1 As String = str.SubString(4)

Dim s2 As String = str.SubString(0,3)

’假定 j .text 为：2013航空航天模型则 s1为：航空航天模型 s2 为2013

Dim dlg As New OpenFileDialog

dlg.Filter= "文本文件|*.doc"

If dlg.ShowDialog = DialogResult.Ok Then

MessageBox.Show("你要打开的文件:" & dlg.FileName,"提示")

End If

Dim ftp1 As new ftpclient

ftp1.host="10.41.72.103"

ftp1.Account = "888"

ftp1.password = "888"

If ftp1.DirectoryExists("D:\武汉市中小学科技竞赛\s2\s1\秩序册") = False Then '如果不存在Data目录

ftp1.MakeDir("D:\武汉市中小学科技竞赛\s2\s1\秩序册") '则创建Data目录

End If

ftp1.upload(""& dlg.FileName &"","D:\武汉市中小学科技竞赛\s2\s1\秩序册\竞赛通知.doc", True)

‘ 这里能否增加代码判断文件上传是否成功？

MessageBox.Show("文件已经成功上传")

错

wsxdwh

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

加好友

发短信

等级：三尾狐帖子：645 积分：4583 威望：0 精华：0 注册：2012/11/12 14:27:00

Post By：2013/3/20 10:41:00 [显示全部帖子]

此主题相关图片如下：未命名.jpg

此主题相关图片如下：未命名1.jpg

以上为错误提示！！！请指教~！！！

[此贴子已经被作者于2013-3-20 10:42:31编辑过]

wsxdwh

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

加好友

发短信

等级：三尾狐帖子：645 积分：4583 威望：0 精华：0 注册：2012/11/12 14:27:00

Post By：2013/3/20 10:55:00 [显示全部帖子]

请专家指教！！！

wsxdwh

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

加好友

发短信

等级：三尾狐帖子：645 积分：4583 威望：0 精华：0 注册：2012/11/12 14:27:00

Post By：2013/3/20 11:14:00 [显示全部帖子]

谢谢指教！！！

我如何知道我的ftp 服务器地址用ip不行！我在局域网中（服务器上）测试。

另请教如何设置让局域网外的计算机（已装好项目）访问到服务器。

[此贴子已经被作者于2013-3-20 11:39:00编辑过]

wsxdwh

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

加好友

发短信

等级：三尾狐帖子：645 积分：4583 威望：0 精华：0 注册：2012/11/12 14:27:00

Post By：2013/3/20 11:42:00 [显示全部帖子]

服务器测试可用

此主题相关图片如下：未命名.jpg

[此贴子已经被作者于2013-3-20 11:42:38编辑过]

wsxdwh

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

加好友

发短信

等级：三尾狐帖子：645 积分：4583 威望：0 精华：0 注册：2012/11/12 14:27:00

Post By：2013/3/20 12:02:00 [显示全部帖子]

在城域网（刚才说错了应该是城域网）测试，最后还需让外网访问（承办全国比赛时用到）

另请教如何设置让局域网外的计算机（已装好项目）访问到服务器

wsxdwh

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

加好友

发短信

等级：三尾狐帖子：645 积分：4583 威望：0 精华：0 注册：2012/11/12 14:27:00

Post By：2013/3/20 15:46:00 [显示全部帖子]

你们公司是否提供服务器租用，价格一年？钱！

wsxdwh

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

加好友

发短信

等级：三尾狐帖子：645 积分：4583 威望：0 精华：0 注册：2012/11/12 14:27:00

Post By：2013/3/21 11:43:00 [显示全部帖子]

回到原话题：

Dim ftp1 As new ftpclient
ftp1.host="128.169.143.96"
ftp1.Account = "foxuser"
ftp1.password = "136137138"
If ftp1.DirectoryExists("/data") = False Then '如果不存在Data目录
ftp1.MakeDir("/data") '则创建Data目录
End If
ftp1.upload("c:\data\isam2.zip","/data/isam2.zip",true

以上是复制帮助中的代码，能否实现在局域网中上传？"/data/isam2.zip"这段代码中没有指定盘符，是否默认c盘？

测试时可以运行，但是不知道传到哪里去了？

现在要传到d盘，改为"/d：/data/isam2.zip"后运行提示找不到文件夹（提示两次）？

图片点击可在新窗口打开查看

[此贴子已经被作者于2013-3-21 11:44:14编辑过]

wsxdwh

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

加好友

发短信

等级：三尾狐帖子：645 积分：4583 威望：0 精华：0 注册：2012/11/12 14:27:00

Post By：2013/3/21 12:03:00 [显示全部帖子]

我已经修改了相应的代码，上传成功，而且下载也成功。就是不知道"/data/竞赛通知.doc"指定的文件夹在哪里？

上传代码：

Dim ftp1 As new ftpclient
        ftp1.host="10.41.72.103"
        ftp1.Account = "888"
        ftp1.password = "888"
        If ftp1.DirectoryExists("/data") = False Then '如果不存在Data目录
            ftp1.MakeDir("/data") '则创建Data目录
        End If
        ftp1.upload(""& dlg.FileName &"","/data/竞赛通知.doc",True)

下载代码：

Dim ftp1 As new ftpclient
ftp1.host="10.41.72.103"
ftp1.Account = "888"
ftp1.password = "888"

ftp1.Download("/data/竞赛通知.doc","d:/竞赛通知.doc")

能在d盘中找到竞赛通知.doc 就是不知道"/data/竞赛通知.doc"指定的文件夹在哪里？

[此贴子已经被作者于2013-3-21 12:06:46编辑过]

wsxdwh

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

加好友

发短信

等级：三尾狐帖子：645 积分：4583 威望：0 精华：0 注册：2012/11/12 14:27:00

Post By：2013/3/21 12:09:00 [显示全部帖子]

谢谢 ! 找到了！！！

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

总数 11 1 2 下一页

主题：ftp 上传 出错

主题：ftp 上传出错