|
Dim piv As WinForm.PictureViewer = e.Form.Controls("PictureViewer1")
If piv.SelectedItem > "" Then
'--------------打开存放窗口·自由选择·文件存放路径
Dim dlg As New FolderBrowserDialog
If dlg.ShowDialog = DialogResult.Ok Then
Dim path As String = dlg.SelectedPath & "\"
'--------------FTP
Dim ftp1 As New FtpClient
ftp1.Host = "" '*****
ftp1.Account = "" '******
ftp1.Password = "" '*****
ftp1.RootDir = "" 'RootDir
'---------------FTP·下载
msgbox(piv.SelectedItem)
ftp1.Download(piv.SelectedItem,Path & FileSys.GetName(piv.SelectedItem), True)
ftp1.Close
End If
End If
|
加好友 
发短信
Post By：2018/11/1 17:28:00 [显示全部帖子]
