Foxtable(狐表)用户栏目专家坐堂 → 请问:点击文件管理器下面的增加按钮,可以不调用FT自带的FTP管理器而调用我自己设计的FTP管理器吗?


  共有5165人关注过本帖树形打印复制链接

主题:请问:点击文件管理器下面的增加按钮,可以不调用FT自带的FTP管理器而调用我自己设计的FTP管理器吗?

帅哥哟,离线,有人找我吗?
audience68
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:324 积分:2547 威望:0 精华:0 注册:2012/5/19 22:40:00
  发帖心情 Post By:2014/11/12 16:18:00 [只看该作者]

ftp1.Changedir("/gongling/web")

 

ftp1.Changedir("\photo")
到底是用/还是\,我有点糊涂了

 

 



 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/11/12 16:23:00 [只看该作者]

 一样。一般用 /

 回到顶部
帅哥哟,离线,有人找我吗?
audience68
  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:324 积分:2547 威望:0 精华:0 注册:2012/5/19 22:40:00
  发帖心情 Post By:2014/11/12 19:24:00 [只看该作者]

下面的这段代码基本都是例子中的,上传按钮的代码已经写好并测试成功,可是这个删除代码却怎么也删不了,点击删除按钮,不选文件会提醒"请选择一个文件!",选择了删除文件也会提醒"是否删除选定文件?",但就是总是显示"删除失败!"无法实现删除,真不知错在哪里?请老师指点。加黑部分与上传里的代码完全一样。

Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
Dim lr As WinForm.ListViewRow = lvw.Current
If lr IsNot Nothing Then
    If MessageBox.Show("是否删除选定文件?","提醒",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then
        e.Form.text = "ftp管理器  文件删除中...."
        
        
        Dim ftp As new FTPClient  '先定义好ftp的账号密码
        ftp.Host = "*****"
        ftp.Port = "21000"
        ftp.Account = "*****"
        ftp.Password = "*******"
        ftp.UTF8 = True


        Dim fp As String = "\监造基本信息表\监造资料\" & Tables("监造基本信息表").Current("任务编号")  

        If ftp.DeleteFile(fp & "\" & lr.text) = True Then
            Functions.Execute("刷新ListView")
            e.Form.text = "ftp管理器"
            MessageBox.Show("删除完成!","提醒")
        Else
            e.Form.text = "ftp管理器"
            MessageBox.Show("删除失败!","提醒")
        End If
    End If
Else
    MessageBox.Show("请选择一个文件!","提醒")
End If

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/11/12 19:36:00 [只看该作者]

msgbox(fp & "\" & lr.text)

 

看ftp是否有对应的路径的文件。


 回到顶部
帅哥哟,离线,有人找我吗?
audience68
  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:324 积分:2547 威望:0 精华:0 注册:2012/5/19 22:40:00
  发帖心情 Post By:2014/11/12 19:45:00 [只看该作者]

谢谢甜版,发现路径不知为何重复出现了2次,图片如下

图片点击可在新窗口打开查看此主题相关图片如下:新图片(3).bmp
图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
audience68
  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:324 积分:2547 威望:0 精华:0 注册:2012/5/19 22:40:00
  发帖心情 Post By:2014/11/12 19:45:00 [只看该作者]

我要删除的文件是7BUnit7习题

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/11/12 19:47:00 [只看该作者]

 你对应弹出其它变量的值看一下,就知道了。


 回到顶部
帅哥哟,离线,有人找我吗?
audience68
  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:324 积分:2547 威望:0 精华:0 注册:2012/5/19 22:40:00
  发帖心情 Post By:2014/11/12 20:30:00 [只看该作者]

谢谢了


 回到顶部
帅哥哟,离线,有人找我吗?
audience68
  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:324 积分:2547 威望:0 精华:0 注册:2012/5/19 22:40:00
  发帖心情 Post By:2014/11/13 12:44:00 [只看该作者]

甜版,做下载也出现无法下载的问题,请帮我看看问题在哪里呐?
代码如下,似乎是黑体部分有问题,但不知怎么改?

Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
Dim lr As WinForm.ListViewRow = lvw.Current
If lr IsNot Nothing Then
    Messagebox.Show(lr.text)....................................此处显示目标文件路径是正确的
    Dim dlg As new folderbrowserdialog
    If dlg.showdialog = dialogresult.ok Then
        e.Form.text = "ftp管理器  文件下载中...."
Messagebox.Show(dlg.Selectedpath)........................此处显示我在对话框中选择的桌面文件路径(c:\users\user\destop)
        If ftp.Download(lr.text,dlg.Selectedpath) = True Then  '若下载成功

     'If ftp.Download(fp & "\" & lr.text,dlg.Selectedpath & "\" & lr.text) = True Then(这是参考例子中的依据,我调整为上面的形式也不对)
           
            e.Form.text = "ftp管理器"
            MessageBox.Show("下载成功!","提醒")
        Else
            MessageBox.Show("下载失败!","提醒")
            e.Form.text = "ftp管理器"
        End If
    End If
End If

 回到顶部
帅哥哟,离线,有人找我吗?
audience68
  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:324 积分:2547 威望:0 精华:0 注册:2012/5/19 22:40:00
  发帖心情 Post By:2014/11/13 13:19:00 [只看该作者]

参考的例子中的自制FTP管理器显示的FTP服务器上的文件是不带路径名的,而我自己的FTP管理器显示我的FTP服务器的文件是带路径名的,所以我参考例子作的总是不对,不知我的FTP服务器为何与例子的不同哪,那位高手知道?

 回到顶部
总数 25 上一页 1 2 3 下一页