Dim name As String = "equipment"
Dim oldpathStr As String = "/images/upImage.png" \'旧文件路径
oldpathStr = String.Format("{0}{1}","/testWeb", oldpathStr )
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "所有图片|*.bmp;*.jpeg;*.jpg;*.png| " & _
" Bitmap(*.bmp)|*.bmp| " & _
" JPEG File Interchange Format (*.jpg)|*.jpg;*.jpeg| " & _
" Portable Network Graphics (*.png)|*.png"
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
\' MessageBox.Show("你选择的是:" & dlg.FileName,"提示") \'提示用户选择的文件
Else
Return oldpathStr
End If
\'通过ftp上传
Dim ftp As new FTPClient
ftp.Account = Vars("FTPUser")
ftp.Host=Vars("FTPUrl")
ftp.Password=Vars("FTPPw")
If not ftp.Connect Then
Messagebox.show("ftp连接失败!服务器或网络可能存在问题","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
\'删除旧文件
If ftp.FileExists(oldpathStr) And oldpathStr <> "/testWeb/images/upImage.png" Then
ftp.DeleteFile(oldpathStr)
End If