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