Foxtable(狐表)用户栏目专家坐堂 → 闪退


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

主题:闪退

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


加好友 发短信
等级:八尾狐 帖子:1953 积分:15015 威望:0 精华:0 注册:2016/4/28 9:58:00
闪退  发帖心情 Post By:2017/3/15 16:12:00 [只看该作者]

Dim dlg As New saveFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "音频文件|*.mp3;*.mp4"
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim ftp As FTPClient = Tables("听力").Cols("文件").DataCol.FTPClient
    Dim fpath As String =  Tables("听力下载_table1").current("文件")
    ftp.UTF8 = True
       messagebox.show(dlg.filename)
     ftp.upload(fpath, dlg.filename,True)
        Dim Proc As New Process
        Proc.File = dlg.FileName
        Proc.Start()
    Else
      messagebox.show("下载失败,请重新下载","提示")
    End If
End If

 

 

老师,请问做了个上传文件可以,做了个下载文件,输入文件名后系统闪一下就自动关闭了,请问是什么原因?


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


加好友 发短信
等级:八尾狐 帖子:1953 积分:15015 威望:0 精华:0 注册:2016/4/28 9:58:00
  发帖心情 Post By:2017/3/15 16:13:00 [只看该作者]

Dim dlg As New saveFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "音频文件|*.mp3;*.mp4"
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim ftp As FTPClient = Tables("听力").Cols("文件").DataCol.FTPClient
    Dim fpath As String =  Tables("听力下载_table1").current("文件")
    ftp.UTF8 = True
       messagebox.show(dlg.filename)
   If ftp.upload(fpath, dlg.filename,True)  Then
        Dim Proc As New Process
        Proc.File = dlg.FileName
        Proc.Start()
    Else
      messagebox.show("下载失败,请重新下载","提示")
    End If
End If

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


加好友 发短信
等级:八尾狐 帖子:1953 积分:15015 威望:0 精华:0 注册:2016/4/28 9:58:00
  发帖心情 Post By:2017/3/15 16:14:00 [只看该作者]

哦,不好意思,没改到upload


 回到顶部