13518219792
Dim OpenFileDialog As New OpenFileDialog
成都创新互联公司专业为企业提供裕安网站建设、裕安做网站、裕安网站设计、裕安网站制作等企业网站建设、网页设计与制作、裕安企业网站模板建站服务，10多年裕安做网站经验，不只是建网站，更提供有价值的思路和整体网络服务。
OpenFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
OpenFileDialog.Filter = "文本文件(*.jpg)|*.jpg|所有文件(*.*)|*.*"
If (OpenFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then
Dim FileName As String = OpenFileDialog.FileName
' TODO: 在此处添加打开文件的代码。
textbox1.Text = FileName
End If
第一个按钮 上传
Dim filelast As String = fileaddbefore.Text.Substring(fileaddbefore.Text.LastIndexOf("."), fileaddbefore.Text.Length - fileaddbefore.Text.LastIndexOf("."))
MessageBox.Show(filelast)
My.Computer.Network.UploadFile(textbox1.Text, "" 文件名.Text filelast, "登录名1", "登录密码", True, 100)
第二个按钮
My.Computer.Network.UploadFile(本地文件路径, ftp服务器路径包括文件名,用户名,密码)
具体方法如下：”、打开Serv－U的配置管理界面puzb在“全局用户”或者“域用户”中选择“创建cgko修改和删除用户帐户”； 2、在“创建，修改和删除用户帐户”的界面，选择“添加”。；3、在“用户属性“对话框，“用户信息”下的用户名为：Anonymous，密码为空，为其指定FTP的根目录。 4、然后在“目录访问“选项，点击“添加”，为其指定访问权限和目录。 5、最后点击“保存”6这样我们就成功添加了匿名用户。
If My.Computer.Network.IsAvailable Then
'如果可用
Else
'不可用
End If
Public Sub DownloadFile ( _
address As Uri, _
destinationFileName As String, _
userName As String, _
password As String, _
showUI As Boolean, _
connectionTimeout As Integer, _
overwrite As Boolean, _
onUserCancel As UICancelOption _
)
参数
address
String 或 Uri。要下载的文件的路径，包括文件名和主机地址。必选。
destinationFileName
String。下载文件的文件名和路径。必选。
userName
String。要进行身份验证的用户名。默认值为空字符串 ""。
password
String。要进行身份验证的密码。默认值为空字符串 ""。
showUI
Boolean。指定是否显示操作进度。默认为 False。
connectionTimeout
Int32。以毫秒为单位的超时间隔。默认值为 100 秒。
overwrite
Boolean。指定是否改写现有文件。默认为 False。
onUserCancel
UICancelOption。指定当用户在对话框（此对话框在 ShowUI 设置为 True 时显示）上单击“取消”或“否”时的行为。默认为 ThrowException。
