以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  闪退  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=97611)
--  作者：刘林
--  发布时间：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

 

 

老师，请问做了个上传文件可以，做了个下载文件，输入文件名后系统闪一下就自动关闭了，请问是什么原因?
--  作者：刘林
--  发布时间：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
--  作者：刘林
--  发布时间：2017/3/15 16:14:00
--  

哦，不好意思，没改到upload