Dim dlg As new SaveFileDialog dlg.Filter = "图片|*.jpg;*.gif;*.png" If dlg.ShowDialog = DialogResult.OK Then Dim flm As WinForm.FileManager = e.Form.Controls("FileManager1") Dim ftp As FTPClient = flm.FTPclient If ftp.Download(flm.SelectedItem, dlg.FileName) = True Then msgbox("保存成功") Else msgbox("下载失败") End If End If