比如:
Dim ftp1 As New FtpClient
ftp1.Host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.Password = "138238110"
Dim file As String = "jz.png"
If ftp1.FileExists("\photo\" & file) Then
file = file.Split(".")(0) & Format(Date.Now,"yyyyMMddHHmmssfffff") & ".png"
End If
If ftp1.Upload("c:\data\Desert.jpg","\photo\" & file ) = True Then
Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If